| r)d Ar pa 
ORS SERIE 









PTIT LIL HDOUELL'EEL L'EL 
AYRE EH RE 
Di:20:S 
HRRE LEE 
GERETF 











GHRTU 
AE 


SOMME A 


TRACEUR DE 
FONCTIONS ER 


Æ MISSION 


LISTING 







RE SATANIA 


ABONNEMENT_ 5 











TRACEUR DE FONCTIONS nue Herrou 


Ce traceur de fonctions n’est pas un traceur de fonctions classique, puisque outre le tracé des fonctions en 
continu, il permet de tracer des tangentes, de résoudre des équations et aussi de calculer 
l’aire entre la fonction et l'axe des abscisses. 


Le programme 


1 y a deux programmes, le premier est un programme BA- 
SIC de 19 Ko et le second est un programme binaire de 2 
Ko. Ce dernier contient cinq nouvelles instructions BASIC. 






| WINDOW adr,x,y,lon,h 

| COMPIL.,adr, X,y,lon,h V alable 4 
| DECOMPIL,adr,x,y,lon,h ACC Ré 
|LIGNE,@af, - 


|WINDOW : permet d’ouvrir une fenêtre de dimension lon- 
2,h-2 à partir de la position x,y. 

| DECOMPIL : permet de fermer la fenêtre précédemment 
définie. 

| COMPIL : permet de compiler une zone écran de longueur 
lon, de largeur h à partir de la position x,y. Cette zone peut 
être décompilée par DECOMPIL. 


—. NBeçompilateur-décompilateur fonctionne en mode 2, donc 


pour le fairè fonctionner en mode 1, il faut multiplier x,y,lon.h 
par 2. | 

|VAL : permet de‘mettre dans une variable la valeur d’une 
variable alphanumérique. Ex : a = "a=10*log(3)":print a 

Le résultat est 10.86... * 


+ MENU 1 : DEFINIR 
— Valider : à chaque fois qu’une fonction a été définie, il faut 
la valider pour que les opérations ultérieures portent sur elle. 


Les fonctions vectorielles portent les numéros 11 et 12, la 
fonction définie par intervalle est signalée par un astérisque. 
Si vous avez validé ce menu par erreur, il suffit de taper En- 
ter pour revenir au menu principal. 
— Définir : ce menu vous permet de définir une fonction d’une 
variable réelle. A la question f(x}=, il suffit de taper la fonc- 
tion que l’on veut définir. Ex : on veut définir la fonction 
f(x)=x13+3*x12, à la question f(x)=, il suffit de répondre 
xA3+3*xA2. 
— Intervalle : ce menu permet de définir une fonction définie 
par intervalle. Par exemple : f f(n)=n sin<O 
f(n)=nvn sin>0 

Pour entrer cette fonction, à la question nombre d’inter- 
valles, il suffit de répondre 2. Aux questions «début inter- 
valle:» et «fin intervalle:», il suffit de répondre -1e38 et O. 
Pour entrer plus ou moins l'infini, il suffit de taper. + ou - 
1e38. Si vous êtes entrer dans ce menu par erreur, il Suffit de 
taper Enter à la première question. 
— Vectoriéllé permet de définir une fonction vectorielle, ou 
une” fonction paramétrique. Si vous voulez définir un cercle 
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[LIGNE : permet de rajouter une ligne BASI@#péndant que 
le programme tourne. 

Il n’y a pas grand-chose à dire sur le programme BASIC, si- 
non qu’il utilise beaucoup de sous-programmes, et que ceux- 
ci sont implantés à partir de la ligne 10000. Le programme 
contient un traitement des erreurs, par conséquent il n’est pas 
nécessaire de connaître l’ensemble des définitions, pour faire 
tourner le programme. 


Fonctionnement du programme et mode d'emploi 


A la mise en route du programme, cinq menus apparais- 
sent en haut de l’écran, ces menus sont les cinq menus prin- 
cipaux du programme, on peut accéder à chacun d’entre eux, 
en déplaçant le pavé noir et en appuyant sur Enter quand on a 
atteint le menu désiré. Ce système de menus est très pratique, 
puisqu’on a accès à toutes les commandes directement. 
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dont l’équation paramétrique est x=cost et y=sint, à la ques- 
tion x(t}=, il suffit de répondre cos(t}.et à la question y(t)=, il 
suffit de répondre sin(t). 

— Corriger : si vous vous êtes trompé en entrant une fonction, 
avec corriger vous l’effacez de la liste, et ainsi. vous pouvez 
la réentrer plus tard. Si la fonction est une fonction.définie_ 
par intervalle, vous effacez toutes les fonctions. | 
— Quitter : si vous êtes entré dans le menu DEFINIR par er- 
reur, vous pouvez revenir au menu principal, en validant l’op- 
tion Quitter. 


+ MENU 2 : EXTREMUM 
— Intervalle de tracé : si vous n’avez pas validé de fonction, 
ce menu est inaccessible. Ce menu vous permet de voir et de 
changer les valeurs des extremums de la fonction. Pour chan- 
ger une valeur, il suffit d'appuyer sur une touche autre que 
Enter, quand on est dessus et de rentrer la nouvelle valeur, 
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qui sera prise en compte immédiatement. Si vous appuyez 
sur Enter, vous passez à la valeur suivante. 

— Recherche des extremas : ce menu vous permet de faire une 
recherche automatique des extremas. Les extremas que l’or- 
dinateur donne ne sont pas automatiquement validés, s'ils vous 
paraissent trop grands, il ne faut pas les valider, mais souvent 
ils donnent une idée des valeurs à entrer à l’aide du menu 
précédent. 

— Quitter : voir précédemment. 


+ MENU 3 : TRACER 
— Effacer écran : comme son nom l’indique, cette fonction 
permet d’effaçer l’écran. 
— Tracer axes : ce menu permet de tracer les axes ainsi que 
leur graduation, avant cette opération, il est conseillé d’effa- 
çer l’écran. Si une unité n’est pas représentée par une gra- 
duation, l’ordinateur le précise. 
— Tracer fonction : permet de tracer la fonction. 
— Tracer tangente : à la question xo=, il faut donner l’abscisse 
du point dont on veut tracer la tangente. Si la fonction définie 
est une fonction vectorielle, il faut donner non pas l’abscisse 
du point, mais la valeur du paramètre pour lequel la fonction 
passe par le point de coordonnées (x,y). Ex : tracer la tan- 
gente au cercle C(0,1) au point M(0,1), à la question xo=, il 
faut entrer pi/2. 
— Quitter : voir précédemmant. 


+ MENU 4 : TRAVAIL 
— Calculatrice : permet de calculer toutes les expressions que 
l’Amstrad permet de calculer (sin, cos, log, log10...). 
— Tracer droite : permet de tracer une droite, cette droite peut 
être parallèle aux axes. Il suffit d’entrer les cœfficients a, b, 
c, de l’équation de la droite sous la forme ax+by+c=0. Pour 
tracer la droite D:y=2x+3, on a :a=2,b=-1 et c=3. 
— Equations : permet de résoudre les équations de la forme 
f(x}=n. Tout d’abord, il faut donner une approximation de la 
solution ou d’une solution, en déplaçant le rectangle à l’aide 
des flèches. Après quoi, il faut donner la valeur de n. 
Pour résoudre les systèmes d’équation de la forme, il faut 
définir une fonction h(x}=f(x)-g(x), puis chercher les solu- 
tions de l’équation h(x)=0, une solution du système est le couple 
(xf(x)). Ex : résoudre y-1n°+2n=0 


3 
y+3n?+n-3=0 
6 2 


Choisir définir fonction, f(x)=1/3*x13-2*x+5/6*x12+x-3/2. 
Valider cette fonction, la tracer et encadrer la solution. A la 
question n répondre 0. Maintenant il faut définir la fonction 
f(x)=1/3*x13-2*x, valider cette fonction, puis aller dans la 
calculatrice et taper fn f(-3), -3 étant l’abscisse de la première 
solution. Ce menu n’est pas évident à utiliser la première fois, 
mais on s’y habitue vite. Après avoir trouvé les solutions, on 
peut effaçer la fonction h(x). 


Autre possibilité : connaître la valeur du paramètre pour la- 
quelle une fonction vectorielle passe par un point. Par exem- 
ple : le cercle. Pour quelle valeur de t passe-t-il par M (sqr (3/ 
2;1/2)). Il suffit de définir et de valider la fonction f(x)=cos(x)- 
sin(x), de tracer la droite y=sqr(3)/2-1/2 et de résoudre l’équa- 
tion f(x)=sqr (3)/2-1/2 
— Calculer aire : permet de calculer l’aire d’une fonction dé- 
finie par intervalle ou d’une fonction d’une variable réelle, 
mais ne permet pas de calculer l’aire d’une fonction paramé- 
trique. L’aire calculée est celle entre l’axe des abscisses et la 
courbe. Les autres aires se déduisent de celle-ci par soustrac- 
tion à l’aire d’un rectangle. 

A la question a, il faut donner l’abscisse de départ du calcul. 
A la question b il faut donner l’abscisse d’arrivée. 

Ex : calcul de l’aire entre la droite d’équation y=2 et l’axe 
des abscisses de la fonction f(x}=x"2. A la question a=, il 
faut répondre 0, et à la question b=, il faut répondre sqr(2), le 
résultat obtenu est 2.67, ce qui correspond à l’aire entre l’axe 
des abscisses et la courbe, l’aire demandée se déduit de cette 
aire par soustraction. A=2*V2-A’ et on obtient A=0,15. 

— Grossir zone : permet de définir une fenêtre graphique, où 
toutes les opérations sont exécutables (tracé courbe, tracé tan- 
gente...). Cette fenêtre est très pratique, pour la résolution 
des équations. 

1. Définir fenêtre : on donne les dimensions de la fenêtre gra- 
phique. Par exemple : lon=320 et h=200. 

2. Valider fenêtre : permet de valider la fenêtre qui a été défi- 
nie avec l’option précédente ; si aucune fenêtre n’a été défi- 
nie, aucune fenêtre n’est ouverte. 

3. Annuler fenêtre : permet de fermer la fenêtre. 

4. Quitter : revient au menu principal. Tous les paramètres 
d'écran sont sauvegardés quand on valide la fenêtre ; lors- 
qu'on la ferme, les paramètres sont remis, c’est-à-dire qu’on 
peut changer les paramètres minimum x... quand la fenêtre 
est ouverte et retrouver les anciens quand on ferme la fenê- 
tre. 


— Quitter : revient au menu principal. 


+ MENUS : DIVERS 
— Dessiner : permet de donner les valeurs de la fonction pour 
permettre de la tracer sur une feuille de papier millimétré, 
très pratique lorsqu'on a à tracer des courbes chez soi. 
— Imprimer : permet la copie de l’écran graphique sur une 
imprimante compatible Epson. 
— Quitter : revenir au menu principal. 
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20 ’: Esnanuel Herrou >LB 
30 e presente >LC 
40 ‘e Un traceur de fonctions  )LD 
50 É V3.3  (C) 1987 LE 


# 
60 "HHRAHBNESHANEESNNENNENEUNENENESE DLF 
LEFT 

100 MODE 2:MENORY &SFFF:1F PEEK(&AO DHL 
00)€>1 THEN LOAD"codei.bin",&A000:C 

ALL &A000 

110 IF PEEK(&9A00)€>205 THEN LOAD"h >BN 
ardcopy.bin",&9A00 

120 ON ERROR GOTO 11000:ninx=-5:max >VD 
1=S:niny=-5:maxy=5:mint=-S:maxt=5:c 
h=1:h=0.0001:nf=1:xn=0: yn=0: lon-639 
tha=399 

130 PAPER O:PEN 1:INK 0,0:INK 1,24: EU 
BORDER 0:PRINT"1"+CHR$ (0) 

140 MOVE 0,0:DRAVR lon,0:DRAUR 0,ha >GP 
:DRAUR -Ion,0:DRAVR 0, -ha 

150 :COMPIL, 86000, 1,1,80,1:adr=PEEK >DC 
(LA132)+256#PEEK (&A133) 

160 WINDOW #0,1,80,1,1:PAPER 1:PEN >GF 
0:CLS 

170 POKE &A2AB, ch: :MENUS, 1:ch=PEEK( >LL 
&A2A8) 

180 ON ch GOTO 200, 1000, 3000, 5000,7 >CE 
000 

190 GOTO 160 
200 ‘Definir 





>RC 





210 !VINDOW,aûr, 1,2, 13,13 >UG 
220 POKE &A2AB, 1 : !MENUS, 2 >UG 
225 :DECOMPIL, adr, 1,2, 13,13 MF 
230 ON PEEK(&A2A8) GOTO 520, 250,600 DHV 
800, 400 

240 GOTO 160 >K 
250 *Fonction >RH 
255 IF nf=11 THEN GOTO 160 >TP 
260 !WINDOW, adr, 2,3, 52, 14 vw 


270 LOCATE 18,1:PRINT "DEFINIR FONC KE 
TION" 

280 GOSUB 10000 WF 
285 IF nf=11 THEN 320 )NE 
290 LOCATE 1,2+tnf :PRINT nf":";:LINE CN 
INPUT "f(x)=",f$(nf):1F f$(nf)="" 
THEN 320 

300 f$(nf)="f(x)="+f$(nf):nf=nf+i  >BU 
310 GOTO 285 >ÆF 
320 :DECOMPIL, adr,2,3,52,14:G0T0 16 >EH 
0 

400 ’Corriger RE 
410 IF nf=1 AND NOT vectorielle THE >GK 

N 160 

420 :WINDOW,adr,2,3,62,18:LOCATE 23 DNU 
»1:PRINT "CORRIGER FONCTION" 

430 GOSUB 10000:1F vectorielle THEN )WT 
PRINT "11 :x"MID$(x$,9,LEN(x$)-5): 
PRINT "12 :y"MID$(y$,9,LEN(y$)-5) 

440 PRINT: INPUT "Corriger fonction )KD 
no:",n:1F n=0 THEN 595 

450 IF n>=11 AND n<13 AND vectoriel >VU 
le THEN vectorielle-0:vt=0:G0TD 490 


>2D | 460 IF n>=11 AND n<13 AND NOT vecto >YX 


rielle THEN LOCATE 1,VPOS(#0)-2:GO0T 





po 40 


470 IF n>=nf THEN LOCATE 1,VPOS(#0) >NV 
-2:G0T0 440 

480 1F f(n)=0 THEN FOR i=n TO nf-1: >TE 
1$(1)=1$(1+1):NEXT:nf=nf-1:G0T0 490 
481 intervalle=0 )NL 
482 IF f(n-1)=1 THEN n=n-1:G0T0 482 >BE 
483 FOR i=n TO nf-ni:f#(i)=f$(itni) >HE 
:{({-nt1)=0:NEXT :nf=nf-ni 

490 def in-0: :DECOMPIL, adr,2,3,62,18 >PH 
:G0T0 160 

520 IF nf=1 AND NOT vectorielle THE >GM 
N 160 

530 :WINDOW, adr,2,3,62,18 >vQ 
540 LOCATE 23,1:PRINT "VALIDER FONC >KG 
TION" 

550 vt-=0:G0SUB 10000 >PH 
560 IF vectorielle THEN PRINT "ii : >BQ 
x"MID$(x$,9,LEN(x$)-5):PRINT "12 :y 
"HID# (y$,9,LEN(y$)-5) 

570 PRINT:INPUT "Valider fonction n >LD 
o:",n0:IF no=0 THEN 595 

575 IF no)=11 AND no(13 AND vectori )BJ 
elle THEN GOSUB 65100:vt=-1:n0=1:G0 

70 595 

576 IF no)=11 AND no(13 AND NOT vec )BE 
torielle THEN LOCATE 1,VPOS(80)-2:G 
0TO 570 

580 IF no>=nf THEN LOCATE 1,VPOS(4#0 >PA 
)-2:G0T0 570 

585 1F f(no)=0 THEN a$="def fn"+f$( >RG 
no) : :LIGNE, @a$,65010:GOSUB 65000 

590 IF f(no)=1 AND f(no-1)=1 THEN n >ZX 
o=no-1:G0T0 580 ELSE IF f(no-1)=0 T 
HEN a$="def fn"+f$(no)::LIGNE,8a$,6 
5010:GO0SUB 65000 


D 595 detin--1: !DECOMPIL, adr, 2,3, 62,1 >QD 
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8:G0T0 160 

600 ’Par intervalle 

605 IF nf=11 THEN 160 >NC 

610 IF intervalle THEN 160 ELSE int >PU 
ervalle=-1 

620 :WINDOW, adr,2,3,40, 10 >vC 

630 LOCATE 7,1:PRINT "FONCTIONS PAR VE 
INTERVALLES" 

640 LOCATE 1,3:INPUT "Nombre d’inte >TJ 
rvalle:",ni:1F ni=0 THEN intervalle 
=0:G0T0 750 

650 FOR i=1 TO ni >HH 

660 IF nf=11 THEN PRINT CHR$(7);:i= >MH 

ni:GO0TO 740 

670 LOCATE 1,4:PRINT “Intervalle no >LE 
“i 

680 LOCATE 1,5:LINE INPUT "Debut in >UY 
tervalle :",a$:1F a$="" THEN 680 

690 a$="v(i,0)="+a$: : VAL, @a$ )IL 

700 LOCATE 1,6:LINE INPUT "Fin inte >PX 
rvalle :*,a$:1F a$="* THEN 700 

710 a$="v(i,1)="+a$: VAL, @a$ )IE 

720 LOCATE 1,7:LINE INPUT "f(x)=,f DFT 

$Cnf):1F f$(nf)="" THEN 720 

730 f$(nf)="f(x)="+#f$(nf):f(nf)=1:n >JR 
f=nf+1:LOCATE 1,5:PRINT "o"; 


740 NEXT >EG 
750 :DECOMPIL, adr, 2,3, 40,10 >H 
760 GOTO 160 >ZG 
800 Fonctions vectorielle )RJ 


810 IF vectorielle THEN 160 ELSE ve >RG 
ctorielle=-1 

820 :VINDOW, adr,2,3,30,8 >UQ 
830 LOCATE 4,1:PRINT "FONCTIONS VEC >RG 
TORIELLES" 

840 LOCATE 1,3:LINE INPUT "x(t)=",x >YZ 
$:1F x9="* THEN vectoriel le=0:G0T0 

880 

850 1$="def fn g(t)="+x$::LIGNE,@x$ >MG 
65110 

860 LINE INPUT "y(t)=",y$:1F y$="" 
THEN 860 

870 y$="def fn f(t)="+y$::LIGNE,@y$ >MM 
65120 

880 :DECOMPIL, adr,2,3,30,8:G0T0 160 >DM 


KA 


990 END >UB 
1000 ’Extreaus >D 
1010 :WINDOW, adr,13,2,23,7:POKE LA2 DUY 
A8, 1 : :MENUS,3 

1020 :DECONPIL, adr, 13,2,23,7 )IE 
1030 ON PEEK(&A2A8) GOTO 1050,1300 >ZX 


1040 GOTO 160 >EH 
1050 ’ Intervalles de trace )1IJ 
1055 IF NOT defin THEN 160 >TR 


1060 IF vt THEN :WINDOW,adr,3,2,30, >LZ 


we | 








10 ELSE :WINDOW, adr, 3,2, 30,8 

1065 xd=0 >EK 
1070 LOCATE 5,1:PRINT "INTERVALLES >PA 
DE TRACE" 


1080 GOSUB 10100 >CH 
1090 LOCATE 7,3:CALL &BB81 >UZ 
1100 GOSUB 10200:1F non THEN 1120 >ZF 


1110 LOCATE 7,3:LINE INPUT r$:1F r$ >BY 
="* THEN 1110 ELSE r$="ainx="+r$:iV 

AL, @r$ 

1120 LOCATE 21,3:G0SUB 10200:1F non >LU 
THEN 1160 

1150 LOCATE 21,3:LINE INPUT r$:1F r >DQ 
$=°* THEN 1150 ELSE r$="manxx="+r$:! 
VAL, @r$ 

1160 IF maxx(=ainx THEN 1090 ELSE L >VJ 
OCATE 7,5:G0SUB 10200:1F non THEN 1 

200 

1170 LOCATE 7,5:G0SUB 10200:1F non KA 
THEN 1200 

1190 LOCATE 7,5:LINE INPUT r$:1F r$ >CK 
=** THEN 1190 ELSE r$="miny="+r$::V 

AL, @r$ 

1200 LOCATE 21,5:G0SUB 10200:1F non >LR 
THEN 1220 

1210 LOCATE 21,5:LINE INPUT r$:1F r >DM 
$="® THEN 1210 ELSE r$="maxy="+r$:: 
VAL, @r$ 

1220 IF maxy(=niny THEN GOTO 1190 >AA 
1225 IF NOT vt THEN 1250 >4H 
1230 LOCATE 7,7:G0SUB 10200:1F non D>KQ 
THEN 1240 

1235 LOCATE 7,7:LINE INPUT r$:1F r$ >CG 
=°* THEN 1235 ELSE r$="aint="+r$:iV 

AL, @r$ 

1240 LOCATE 21,7:G0SUB 10200:1F non >LB 
THEN 1250 

1245 LOCATE 21,7:LINE INPUT r$:1F r >DB 
$="" THEN 1245 ELSE r$="naut="+r$:! 
VAL, @r$ 

1250 IF maxt(=nint THEN GOTO 1220 E DTA 
LSE GOSUB 10300 

1260 CALL &BBB4:1F vt THEN :DECOMPI FF 
L,adr,3,2,30,10 ELSE :DECOMPIL, adr, 


3,2,30,8 

1270 GOTO 160 FC 
1300 "Recherche des extreauss >IG 
1302 IF NOT defin THEN 160 >TL 


1305 :WINDOW, adr,3,2,30, 10:LOCATE 5 >TC 
»1:PRINT "RECHERCHE DES MAXIMA" 

1310 st=(marx-ninx)/80:miny1=1E+38: >KN 
matyi=-1Et38:ninx1=1E+38:maxx1=-1Et 
38:LOCATE 1,3:PRINT "Attendez S.V.P 


À 





1320 IF f(no)=1 THEN r=1:G0SUB 1060 >MH 
0:G0T0 1335 

1325 IF vt THEN st=(maxt-aint)/80:3 DEF 
tart=nint:fin=saxt:GOSUB 10400:GO0T0 
1335 

1330 start=ninx:fin-maxx:GOSUB 1040 >GD 

0 

1335 IF miny1)0 THEN siny1:0 ul 
1340 IF maxyi(0 THEN maxyi-0 > 
1345 IF vt AND minx1)0 THEN minxi=0 >RM 
ELSE IF vt AND maxx1(O THEN maxux1= 

0 

1350 LOCATE 1,3:PRINT SPACES(29);  >BK 
1360 IF vt THEN LOCATE 1,3:PRINT "M >RK 
in x=";ROUND(minxi,2) :LOCATE 15,3:P 
RINT "Max x=":ROUND(maxxi,2) 

1370 LOCATE 1,5:PRINT "Min y=";ROUN >AE 
D(ainy1,2):LOCATE 15,5:PRINT “Max y 

=": ROUND(maxy1, 2) 

1380 LOCATE 1,7:INPUT "Valider extr >LL 
ena (0/N) :",a$:a$-LOWERS(a$):1F a$ 
€)>"o" AND a$()>"n® THEN 1380 

1390 1F a$="o" THEN niny=ninyl:sary )EX 
=saxyi:IF vt THEN sinx=minxi:maxx=n 
axxi 


1400 :DECOMPIL, adr, 3,2, 30,10 >) 
1410 GOTO 160 )EJ 
2990 END >ZJ 
3000 ‘Tracer )IF 


3010 :WINDOW, adr,31,2,18,11:POKE &A >VV 
2A8, 1 : "MENUS, 4 

3020 :DECOMPIL, adr, 31,2,18,11 >TF 
3030 ON PEEK(&A2A8) GOTO 3050,3100, >JF 


3300, 3500 
3040 GOTO 160 >EX 
3050 ’Effacer ecran >YA 


3060 :DECOMPIL, &6000, 1, 1,80,1:CLG(0 >1Q 
):0RIGIN xa,ya,xa,xatlon, ya, yatha:D 
RAUR lon,0:DRAUR 0,ha:DRAVR -lon,0: 
DRAUR 0,-ha 


3070 ORIGIN xa+xo,yatyo:GOTO 150  >BX 
3100 ‘Tracer axes >1G 
3110 IF NOT defin THEN 160 >TK 


3120 :DECOMPIL,46000, 1,1,80,1:G0SUB >JF 
10340 

3125 IF (maxx-sinx)(=2 THEN gradx=0 DEF 
1 

3127 IF (maxy-siny)(=2 THEN grady=0 >FC 
1 

3130 gradx=1:WHILE gradx/aultx<10:g >CL 
radx=gradx#10:VEND 

3140 grady=1:WHILE grady/aulty(10:g >CT 
rady=grady#10:VEND 

3145 ORIGIN xe,ya,xe,xation,ya,yath >KP 
a:MOVE 10,0:DRAY x0,ha:MOVE 0, yo:DR 


AU lon, yo 


3150 ORIGIN xatxo,yatyo,xa,xmtlon,y >FN i 


n,yatha:FOR i=0 TO lon-xo STEP grad 
x/aultx:HOVE i,-2:DRAV i,2:NEXT:FOR 

1=0 TO -xo STEP -gradx/aultr:MOVE 
i,-2:DRAY i,2:NEIT 

3160 FOR i=0 TO ha-yo STEP grady/au >YH 
Ity:HOVE -2,1:DRAV 2,1:NEXT:FOR 1=0 

TO -yo STEP -grady/aulty:MOVE -2,i 
:DRAY 2,i:NEXT 

3170 IF gradx(>1 OR grady(>i THEN : >HH 
WINDOW, 46000, 1,1,14,5:PRINT "Ox:1 

>"; gradx:PRINT"Oy:1 > ";grady:CALL 
&8B06: : DECOMPIL, 86000, 1,1,14,5 


3180 GOTO 150 >FD 
3300 ‘Tracer fonction )1] 
3302 IF NOT defin THEN 160 >TN 


3305 :DECOMPIL, &6000, 1,1,80,1:G0SUB >JL 
10340 


3310 st=(maxx-sinx)/320 >TJ 
3320 1F vt THEN GOSUB 10555:CALL &B >NM 
B06:G0T0 150 


3330 IF f(no)=1 THEN r=2:G0SUB 1060 >ZC 
O:CALL &BB06:GO0T0 150 
3340 start=ninx:fin=naxx:GOSUB 1050 >GH 


0 

3350 CALL &BB06:G0TO 150 >RY 
3500 ’Calcul derivee >YA 
3505 1F NOT defin THEN 160 >TU 


3510 :WINDOW, adr,2,3,20,7:LOCATE 3, >JL 
1:PRINT "TRACER TANGENTE* 

3520 LOCATE 1,3:INPUT "xo=",a$:1F a >0G 
$="" THEN 3520 


3530 a$="x0="+a$: : VAL, 6a$ JUY 
3535 :DECOMPIL, adr,2,3,20,7::DECOMP >YR 
IL, 46000, 1, 1,80, 1 

3540 1F vt THEN GOSUB 10700:G070 15 >CY 
0 

3550 IF f(no)=i THEN GOSUB 10800:G0 >GA 
TO 150 

3560 t=-1:f=(FN f(x0-h)-FN f(x0))/- >P4 
h:G0SUB 10900 

3570 t=1:f=(FN f(x0+h)-FN f(x0))/h: >NG 
GOSUB 10900 

3580 GOTO 150 >FH 
4990 END >AA 
5000 ’Travail )IH 


5010 :WINDOW, adr,48,2,15,13:POKE &A >VG 
2A8, 1: :MENUS,5 


5020 :DECOMPIL, adr, 48,2, 15,13 >YQ 
5030 ON PEEK(&A2A8) GOTO 5050,5100, >PV 
5200, 5300, 5700 

5040 GOTO 160 >FB 
5050 "Calculatrice )YC 
5060 :WINDOW, adr,2,18,20,6 WW 








90 

5080 a$="? "+a$::VAL,@a$:G0T0 5070 BE 
5090 :DECOMPIL, adr,2,18,20,6:G0T0 1 >FB 

60 

5100 "Tracer droite Del 

5105 IF NOT defin THEN 160 >TR 
5110 :WINDOW, adr,3,2,22,8:LOCATE 5, >GX 
1:PRINT "TRACER DROITE" 

5120 LOCATE 1,3:PRINT "D:axtbytc=0" )EJ 
5130 LOCATE 1,4:INPUT "a=",a$:1F a$ >QB 
=te THEN a$="0" 

5135 a$="a="+ta$: VAL, @a$ >TF 
5140 LOCATE 1,5:INPUT "b=",a$:1F a$ )QE 
EL LI THEN a$="0" 

5145 a$="b="+a$: VAL, @a$ >TH 

5150 LOCATE 1,6:INPUT "c=",a$:1F a$ >QH 
=". THEN a$="0" 

5155 a$="c="+a$: : VAL, @a$ >TK 
5160 :DECOMPIL, adr, 3,2, 22,8 >WP 

5170 :DECOMPIL, 86000, 1,1,80,1:G0SUB >UX 
11300:G0T0 150 

5200 ’Resoudre equations )IK 
5202 IF NOT DEFIN OR vt THEN 160  >YT 

5205 PRINT" 11"; ::DECOMPIL,&6000, 1,1 >HZ 
80,1 

5207 ORIGIN xa,ya JE 

5210 MOVE xd,0:DRAW xd,ha:MOVE xd+( >EX 

gradx/aultx),0:DRAW xd+(gradx/sultx 
),ha 

5212 a$=INKEYS:IF a$="" THEN 5212  )ZF 

5214 MOVE xd,0:DRAW xd,ha:MOVE xd+( >ER 

gradx/aultx),0:DRAW xd+(gradx/aultx 
),ha 

5215 IF a$=CHR$(13) THEN PRINT"1"+C >Z4 

HR$(O):0RIGIN xa+xo,yatyo, xe, xation 

,Ya,yatha:GO0TO 5255 

5220 IF a$=CHR$(242) THEN xd=xd-1:G >JW 

OTO 5250 

5230 IF a$=CHR$(243) THEN xd=xd+1:G }JW 

OTO 5250 


5240 GOTO 5210 >KG 
5245 IF xd<i THEN xd=1 >PC 
5247 IF xd>lon THEN xo=lon )vC 
5250 GOTO 5210 > 


5255 :WINDOW,&6000, 50,3, 30, 10:LOCAT >UP 
E 7,1:PRINT "RESOUDRE EQUATIONS" 
5260 LOCATE 1,3:INPUT "n=",a$:1F a$ >NC 


="* THEN 5290 

5270 a$="n="+a$: : VAL, @a$ >TV 
5280 a=(xd-xo)#aultx:b=atgradx >AR 
5285 IF f(no)=1 THEN 5500 >RH 


5288 IF SGN(FN f(a)-n)C>SGN(FN f(b) >CQ 


5070 LINE INPUT a$:1F a$=°" THEN 50 >CH | -n) THEN GOSUB 11400:PRINT "S="a:CA 


À 





LL &BB06 
5290 :DECOMPIL, 46000, 50, 3,30, 10:G0T >HB 
0 150 


5300 ’Calcul aire >YA 
5305 IF NOT defin THEN 160 >TU 
5310 :WINDOW, adr,2,3,22,8 >VWK 


5320 LOCATE 5,1:PRINT"CALCUL AIRE*  >DA 
5330 LOCATE 1,3:INPUT "a=",a$:1F a$ >UH 
=" THEN GOTO 5390 

5340 a$="start="+a$: :VAL,@a$ >IT 

5350 LOCATE 1,4:INPUT "b=",a$:1F a$ >NR 
=*" THEN 5390 

5360 a$="fin="+a$: : VAL, @a$ )VZ 
5365 IF f(no)=1 THEN 5400 >RF 

5370 5=0:G0SUB 11500:1F s=1E+38 THE >KG 

N GOTO 5390 

5380 s=n4s:PRINT "A=":;ROUND(s,2):CA >MP 
LL 4BB06 

5390 :DECOMPIL, adr,2,3,22,8:G0T0 16 DEV 

0 

5400 maxx3=maxx:ninx3=nminx:r-3:9=0 DFI 

5410 minx=start:maxx=fin:GOSUB 1060 >LH 

O:maxx=naxx3:ninrx=ninx3 

5420 GOTO 5380 NE 

5500 ’Equation fonctions definies p >YC 

ar intervalle 

5505 FOR 1=1 TO ni >LU 
5510 IF a<v(i,1) THEN c=noti-1:a$=" DFA 

def fn "+f$(c)::LIGNE,@a$,65010:G0S 

UB 65000 

5520 NEIT >LD 
5530 IF b<=v(c,1) THEN 5580 >TH 

5540 IF SGN(FN f(a)-n)C>SGNCFN f(v( >MM 
c,1))-n) THEN b=v(c,1):G0T0 5580 

5550 c=cti:a$="def fn "+f$(c)::LIGN >EN 

E,0a$,65010:G0SUB 65000 

5560 IF SGN(FN f(v(c,0))-n)C>SGN(FN >HG 
f(b)-n) THEN a=v(c,0):G0T0 5580 


5570 GOTO 5290 >PA 
5580 GOSUB 11400:PRINT "S=";a )IE 
5590 CALL &BB06:G0T0 5290 >TN 
5700 ’Grossir zone . )YE 
5710 :WINDOW, adr,2,3,32, 12 >vQ 


5720 LOCATE 10,1:PRINT "GROSSIR ZON >GA 
E" 

5730 LOCATE 1,3:PRINT "1 - Definir >BZ 
fenetre*:PRINT"2 - Valider gros pla 
n":PRINT*3 - Annuler gros plan":PR] 

NT "4 - Quitter" 

5740 LOCATE 7,9:INPUT "Votre choix >RQ 


(1-4) :°,a 
5750 IF a€1 AND a)4 THEN 5740 >UH 
5760 ON a GOTO 5800, 5900, 6000 NT 


5770 :DECOMPIL, adr,2,3,32,12:G0T0 1 DFA 
60 


Ë 5800 ’definir fenetre >YF 


5805 IF ec THEN 5720 

5810 CLS:LOCATE 8,1:PRINT "DEFINIR 
FENETRE" 

5820 LOCATE 1,3:INPUT "Longueur=", 1 
:1F lon>640 THEN 1-640 

5825 IF 1(=0 THEN 5850 >PZ 
5830 LOCATE 1,5:INPUT "Hauteur=",11 >DN 
:1F 113400 THEN 11=400 


>NY 


)EY 


5840 1F 1120 THEN ec=-1 >QP 
5850 CLS:G0T0 5720 WW 
5900 "Valider fenetre »YG 
5910 1F NOT ec THEN 5720 >H 
5920 :DECOMPIL, adr, 2, 3, 32,12 )IN 
5930 :DECOMPIL, 46000, 1, 1,80, 1 >)P 


5940 ninx2=sinx:naxx2=naxx:miny2=ni 
ny:aaxy2=saxy:mart2=maxt:nint2=nint 
5950 lon=1-17:ha=11-20:PRINT"X"; ::V >XK 
INDOW,47000,1,1,1/8,11/16:PRINT"X"; 
5960 xa=8:yn=400-11+6:0RIGIN xa,yn, > 
xa,xatlon,ya,yatha:GOTO 140 

6000 "Annuler fenetre Dal 
6010 :DECOMPIL, adr, 2, 3, 32, 12 )D 
6020 :DECOMPIL, &6000, 1, 1,80, 1::DEC0 >F4 
MPIL,&7000, 1,1,1/8,11/16 

6030 xa=0:ya=xn: lon-639:ha=399:0R1G >ZB 
IN 0,0,0,639, 0,399 

6040 minx=ainx2:maxx=saxx2:miny=ain FH 
y2:maxy=naxy2:nint-nint2:naxt-sart2 
6050 GOSUB 10340:0RIGIN xa+xo,yatyo >RK 


0,639, 0,389 

6055 ec=0 >DD 
6060 GOTO 150 >FD 
6990 END >AC 
7000 ‘Divers >IK 
7010 :WINDOVW,adr,66,2,10,7:POKE LA2 >UM 


A8, 1: !MENUS, 6 


7020 :DECOMPIL, adr, 66,2, 10,7 >1Q 
7030 ON PEEK(&A2A8) GOTO 7050,7500 AK 
7040 GOTO 160 >FD 
7050 "Dessiner >YE 
7055 IF NOT defin THEN 160 >TY 
7060 :WINDOW, adr, 2, 3,32, 12 >vQ 
7070 LOCATE 12,1:PRINT "DESSINER®  DBV 


7080 LOCATE 1,3:PRINT "Echelle :";: >BK 
INPUT "Ox 1 ca--)",a$:1F a$="" THEN 
7160 

7090 a$="sx="+a$ : : VAL, 8a$ NT 
7100 LOCATE 10,4:INPUT "Oy 1 ca--)" >ZN 
,8$:1F a$="" THEN 7100 

7110 a$="sy="+a$: : VAL, 6a$ LL 

7120 INPUT ‘Pas du trace :",a$:1F a DUJ 
$="" THEN 7120 

7130 a$="st="+a8 : : VAL, 8a$ >VH 

7135 start-ninx:fin=maxx:VINDOW #0, DVL 

3,32,6,10:CLS 


"2 | 








7140 IF vt THEN start-=aint:fin=saxt )EH 
:G0SUB 11600:G0T0 7160 

7150 IF f(no)=0 THEN GOSUB 11600 EL >NE 
SE IF f(no)=1 THEN r=4:G0SUB 10600 
7160 :DECOMPIL, adr,2,3,32,12:G0T0 1 >FV 
60 

7500 ? Imprimer )YE 
7510 :DECOMPIL,&6000,1,1,80,1:CALL  >HD 
&9A00 

7520 GOTO 150 
10000 ‘Afficher les fonctions >CG 
10010 FOR i=1 TO nf-1 >NZ 
10030 LOCATE 1,2+i:PRINT i;:1F f(i) >VZ 
=1 THEN PRINT “4; 


>FF 


10040 PRINT ":":f$(1) >PA 
10050 NEXT RE 
10060 RETURN >LK 


10100 ‘Afficher Miniaus et Maximum )CH 
10110 LOCATE 1,3:PRINT "Min x=";ROU >YC 
ND(ainx,2):LOCATE 15,3:PRINT "Max x 

=: ROUND (maxx, 2) 

10120 LOCATE 1,5:PRINT "Min y=";ROU )IB 
ND(miny,2) :LOCATE 15,5:PRINT "MAI y 

= :ROUND (mary, 2) 

10130 IF vt THEN LOCATE 1,7:PRINT " >PY 
Min t=";ROUND(aint, 2) :LOCATE 15,7:P 
RINT "Max t=";ROUND(naxt, 2) 


10140 RETURN >LJ 
10200 CALL £BB81 >AB 
10205 non=0 >uC 


10210 a$=INKEYS:IF a$="" THEN 10210 >AJ 
10215 IF a$=CHR$(13) THEN non=-1:RE >GV 

TURN 

10220 PRINT" "; :RETURN 
10300 IF niny>0 THEN ainy=0 
10310 IF maxy(O THEN naxy-0 
10320 IF minx)0 THEN sinx=0 >VA 
10330 IF maxx(O THEN maxx=0 >) 
10340 auitx=(marx-sinx)/(lon-1):aul >FG 

ty=(maxy-niny)/(ha-1) 

10350 xo=(ABS(minx)/(maxx-minx))#(1 >ER 

on-1):yo=(ABS(niny)/(maxy-miny))#(h 
a-{) 

10360 RETURN 

10400 ‘Recherche saxiaus 

10410 FOR 1=start TO fin STEP st 
10420 ninyi=MIN(ainyi,FN f(1)):maxy >CG 
1=HAX(smaxy1,FN f(1)) 

10430 IF vt THEN minxi=MIN(ainx1,FN >QK 
g(1)):maxx1=NAX (maxi, FN g(1)) 


À 


VC 
VA 
JD 


>RH 


10450 RETURN >hC 





| 10500 ’Tracer fonction >DB 
10510 HOVE start/aultx,FN f(start)/ >LI 
aulty 
10520 FOR i=start TO fin STEP st  }ZÆ 
10530 DRAY i/aultx,FN f(i)/aulty  >BY 


10540 IF SGN(FN f(itst)) OSGN(FN f( >BB 
1)) AND ABSCFN f(itst)/aulty-FN f(i 
)/aulty)>50 THEN MOVE (itst)/aultx, 

FN f(itst)/aulty 

10550 NEXT:RETURN >K 
10555 st=(maxt-nint)/320:start=mint >RH 
sfin=sart 

10560 MOVE FN g(start)/aultx,FN f(s >TN 
tart)/aulty 

10570 FOR i=start TO fin STEP st  )AB 
10580 DRAW FN gli)/multx,FN f(1)/au >GU 
ty 

10585 IF C(FN g(i)-FN glitst))/mult >YN 
1)°2+((FN f(i)-FN f(itst))/aulty)"2 
210000 THEN MOVE FN gitst)/aultx,F 

N f(itst)/aulty 


10590 NEXT : RETURN >NP 
10600 c=1:ro=no:WHILE c<(=ni NT 
10610 start=v(c,0):fin=v(c,1) )YG 
10620 IF minx>=fin THEN 10680 WW 


10630 IF minx>start THEN start=ninx >FU 
10640 IF maxx(=start THEN c=ni:G0T0 »KC 
10680 

10650 IF maxx<fin THEN fin=sarx > 
10660 a$="def fn "+f$(ro)::LIGNE,@a >AH 
$,65010:G0SUB 65000 

10670 ON r GOSUB 10400, 10500,11500, >ED 
11600 

10680 c=c+t1:ro=roti >NP 
10690 VEND: RETURN >NI 
10700 t=-1:f=(FN g(x0-h)-FN g(x0))/ DAY 
-h:f1=(FN f(x0-h)-FN f (x0))/-h:G0SU 

B 10750 

10710 t=1:f=(FN g(x0+h)-FN g(x0))/h >WV 
2f1=CFN f(x0+h)-FN f(x0))/h:GOSUB 1 
0750 

10720 RETURN >HC 
10750 h1=SQR((f/aultx)"2+(f1/multy) >GU 
*2):ca=f#t/(multr#h1l):sa=f1#t/(ault 
y#h1) 

10760 MOVE FN g(x0)/aultz,FN f(x0)/ DUX 
aulty:DRAUR 75tca,75tsa:x=7#ca:y=74 
sa:MOVER -x,-y:0RIGIN xa+XP0S+x0, ya 
+YP0S+yo:DRAY -y,x:DRAU x,y:DRAW y, 
-x1:DRAY 0,0 

10770 ORIGIN xa+xo, ya+yo:RETURN >CZ 
10800 c=1:ro=n0:WHILE c(=ni JW 
10805 IF x0>v(c,1) THEN 10870 >) 
10810 IF x0=v(c,0) AND c>1 THEN 108 >BA 
20 


10815 IF x0=v(c,0) AND c=1 THEN 108 LU] | 


25 ELSE 10835 

10820 t=-1:a$="def fn"+f$(ro-1)::L1 > 
GNE,0@a9,65010:GO0SUB 65000:f=(FN f(x 
0-h)-FN f(x0))/-h:G0SUB 10900 

10825 t=1:a$="def fn"+f$(ro)::LIGNE >GH 
,0a$,65010:G0SUB 65000:f=(FN f(x0+h 
)-FN f(x0))/h:GOSUB 10900 

10830 c=ni:G0TO 10870 >PY 
10835 IF x0=v(c,1) AND c€ni THEN G0 DHJ 
TO 10845 

10840 IF x0=v(c,1) AND c=ni THEN 10 DNX 
850 ELSE 10860 

10845 t=1:a$="def fn"+f$(roti)::LIG >JU 
NE, @a$,65010:G0SUB 65000:f=(FN f(x0 
+h)-FN f(x0))/h:G0SUB 10900 

10850 t=-1:a$="def fn"+f$(ro)::LIGN >JT 
E,6a%,65010:G0SUB 65000:f=(FN f(x0- 
h)-FN f(x0))/-h:GOSUB 10900 

10855 c=ni:G0T0 10870 >PF 
10860 t=-1:a$="def fn"+f$(ro)::LIGN >JU 
E,0a9,65010:G0SUB 65000:f=(FN f (x0- 
h-FN f(x0))/-h:GOSUB 10900 

10865 t=1:f=(FN f(x0+h)-FN f(x0))/h >VX 
:GO0SUB 10900:c=ni 

10870 c=ct{:ro=roti >NQ 
10875 VEND:CALL &BB06:G0T0 150 >YQ 
10900 h1=SQR((1/aultr)"2+(f/multy)* >BQ 
2):ca=t/(aultr#hi):sa=f#t/(aultys#hi 

) 

10910 HOVE x0/aultx,FN f(x0)/multy: >GH 
DRAUR 75#ca,75#sa:x=7#ca:y=7#5a: MOV 

ER -x,-y:0RIGIN xa+XP0S+x0, ym+YP0S+ 
yo:DRAN -y,x:DRAU x,y:DRAW y,-x:DRA 

W 0,0 

10920 ORIGIN xa+xo, ymt+yo:RETURN >C4 
11000 ‘traitement erreur >CH 
11010 IF ERL-10420 OR ERL:10430 THE )PZ 
N RESUME 10440 

11020 IF ERL-10510 THEN start=start >WR 
+st:RESUME 10510 

11030 IF ERL=10530 THEN RESUME 1120 >CQ 
0 

11040 IF ERL=10540 THEN RESUME 1120 >CT 
0 

11050 IF ERL=10560 THEN start=start > 
+(maxt-nint)/320:RESUME 10560 

11060 IF ERL-10580 THEN RESUME 1125 CE 
0 

11065 IF ERL=10585 THEN RESUME 1125 >CQ 
0 

11070 IF ERL-11210 THEN RESUME 1120 >CQ 
0 

11080 IF ERL-11260 THEN RESUME 1125 >CC 
0 

11090 IF ERL=10700 THEN RESUME 1071 >CB 








0 

11100 IF ERL=10710 THEN RESUME 1072 >CV 
0 

11110 IF ERL-3560 THEN RESUME 3570 >AW 
11120 IF ERL=3570 THEN RESUME 3580 AZ 
11130 IF ERL-5080 THEN RESUME 5070 >AU 
11140 IF ERL-10820 THEN RESUME 1062 >CH 
5 

11145 IF ERL=10825 THEN RESUME 1083 >CP 
0 

11150 IF ERL=10845 THEN RESUME 1085 >CP 
0 

11155 IF ERL=10850 THEN RESUME 1085 >C4 
5 

11160 IF ERL-5540 THEN RESUME 5590 >AF 
11170 IF ERL=11520 THEN s=1E+38:RES >LA 
UXE 11530 

11175 IF ERL-11620 THEN RESUME 1164 >CL 


0 
11190 END >EG 
11200 GOSUB 65000 >LQ 


11205 i=itst:IF idfin THEN GOTO 105 >DY 
50 

11210 MOVE i/aultu,FN f(i)/aulty  >BD 
11220 GOTO 10550 >AK 
11250 i=itst:IF i)fin THEN GOTO 105 >DC 
90 

11260 MOVE FN g(i)/sultx,FN f(i)/mu >GB 


Ity 
11270 GOTO 10590 >BJ 
11300 ‘Tracer droite >DA 


11310 IF a=0 AND b=0 THEN RETURN 
11320 IF a=0 THEN MOVE ninx/aultr,- >TN 
c/(bsauity):DRAV aaxx/aultx,-c/(bta 
ulty) :RETURN 

11330 IF b=0 THEN MOVE -c/(ataulitxr) >TQ 
sniny/aulty:DRAU -c/(ataultx),naxy/ 
aulty:RETURN 

11340 IF ABS((b#aultx)/(ataulty))>= >PA 
1 THEN 11360 

11350 MOVE minx/aultx,(-atminx-c)/( >DU 
btauity):DRAV naxx/aultx, (-atmarx-c 
)/(bæaulty) : RETURN 

11360 MOVE (-baminy-c)/(ataultx),ni >DZ 
ny/aulty:DRAU (-btsaxy-c)/(ataultz) 
,naty/aulty:RETURN 


11400 ’Resoudre f(x)=n >DB 
11410 an=1:WHILE as)=0.000000001  )ZJ 
11420 an=(b-a)/2:v=FN f(atan)-n )TE 
11430 IF v=0 THEN a=atan:RETURN >ZJ 


11440 IF SGN(v)=SGN(FN f(a)-n) THEN >WG 
a=atas ELSE b=b-as 


11460 VEND 


> 





| 


11470 RETURN > 
11500 "Calcul aire >DC 
11510 n=(fin-start)/512 >TB 


11520 FOR i=start TO fin STEP n:s=9 }YU 
+ABS(FN f(i)):NEXT 

11530 RETURN >HC 
11600 "Donner valeur fonctions >DD 
11610 FOR i=start TO fin STEP sttsx >DN 
11620 x=i/sx:y=FN f(1)/sy >UY 
11625 IF vt THEN x=FN g(i)/sx jun 
11630 PRINT "x=";ROUND(x,1),"y=";RO >NA 


UND (y, 1) 

11635 CALL &BB06 >BB 
11640 NEIT >TA 
11650 RETURN >NF 
65000 ’Fonction >DG 


65010 DEF FNf(x)=(EXP(x)+EXP(-x))/2 >CH 


65020 RETURN >MF 
65100 ‘Fonction vectorielle >DH 
65110 DEF FN g(t)-C0S(t)-3 >UU 
65120 DEF FN f(t)=SIN(t)-2 JUY 
65130 RETURN > 


© 


10 A=&A000:F=&A4AF:L=100:WHILE AC=F )TC 
:FOR A=A TO AtI5:READ C$:K=VAL("£"+ 
C#):S=5+K+65536#(S+K>32767): IF AC=F 
THEN POKE A,K 

20 NEXT:READ D$:T=VAL("&"+D$):1F T< >HH 
>S THEN PRINT CHR$(7); "Erreur ligne 
“;:L:END ELSE L=L+5:WEND 

25 CLEAR 

30 SAVE"codei.bin",b,&A000, &4AF )BG 

40 A=&9A00:F=&9ABF :L=475:WHILE A(=F >TN 
:FOR A=A TO A+15:READ C$:K=VAL("L£®+ 

C$):S=S+K+65536#(S+K)32767):1F AC=F 
THEN POKE A,K 

50 NEXT:READ D$:T=VAL("&"+D$):1F TC >HL 
>S THEN PRINT CHR$(7); "Erreur ligne 
“;L:END ELSE L=L+5:VEND 

60 SAVE"hardcopy",b, &9A00, &BF >AZ 
100 DATA 01,09,A0,21,3F,A0,C3,D1,BC >EJ 
,1D,A0,C3, 43,A0,C3,91,07B1 

105 DATA A0,C3,35,A1,C3,60,A1,C3,8B >EH 
,À1,0C3,0C, A2, 43, 4F, 4D, OFED 

110 DATA 50,49,CC, 44,45,43,4F,4D,50 >EG 
,49,CC,56,41,CC, 4C, 49, 1617 

115 DATA 47,4E,C5,57,49,4E, 44,4F,D7 )EZ 
,4D,45,4E,55,D3, 00, 00, 1BD1 

120 DATA 00,00,00,FE, 05, C0, 3E, 18,32 EL 
,81,A0, CD, BF, A0, 7E,4F,2236 

125 DATA 06,00,04,28,11,CD,FF,A0,FD >EV 


>DF 


,35,05, 28, 26, FD, 34, 05, 2740 

130 DATA 7E,B9, 20,03, 18,EC, 05, 79,FE DEL 
,FF,28,05, 78,FE, 03, 38, 2E57 

135 DATA 19,3E, FF, 12, 13,78, 12,13, 79 )EQ 
12,13, FD, 73,06, FD, 72, 33F2 

140 DATA 07,18, CB, 3E, C9, 32,81, AO, 18 )EH 
,D0, 79,12, 13, 10,FC, 18, 39ED 

145 DATA BD,FE, 05,C0, CD, BF, AO, 1A, FE DFE 
,FF,20,15, 13, 1A,47,13,416C 

150 DATA 14,77, CD,FF, A0, FD, 35,05, CB DEF 
,FD,34,05, 10, F2, 13, 18, 48CB 

155 DATA E6,77,13,CD,FF, AO, FD, 35,05 )FQ 
,C8,FD, 34,05, 18,D8, DD, 5149 

160 DATA 7E,00,17,17,17,FD,21,2C, A1 )EQ 
FD, 77,00, DD, 4E, 02, FD,57F5 

165 DATA 71,01, FD, 71,02, DD,6E, 04, DD )EJ 
,66,05,28,11,50,00, CD, 5DC7 

170 DATA BE, BD, DD, 5E, 06, DD, 56,07, 1B )EH 
,19,11,00, CO, 19, FD, 75,644D 

175 DATA 03,FD, 74,04, AF, FD, 77,05, DD )FP 
,5E,08, DD, 56, 09, C9, 23,6B58 

180 DATA FD,35,01,C0, FD, 7E, 02, FD, 77 )EQ 
,01,FD,35, 00, 20,04, FD, 7290 

185 DATA 34,05, C9,FD,6E, 03, FD,66, 04 DEF 
,D5,11,00,08, 19, 30, 04, 77A2 

190 DATA 11,50, C0, 19, Di, FD, 75,03, FD >DK 
,74,04, C9, 00, 00, 00, 00, 7D60 

195 DATA 00,00,00,00,00,FE,01,CO,DD >DJ 
,6E,00,DD, 66,01, 4E, 06, 8202 

200 DATA 00,23,5E, 23,56, EB, 11, A4, AC >FG 
,D5,ED, BO, AF, 12,E1, CD, 8A29 

205 DATA 00,B9,CD, BB, DE, 21, 40, 00, 7E )FQ 
,CD,AB, DD, CD, 03, B9, C9, 92CE 

210 DATA FE, 02, C0, DD, 6E, 02, DD, 66,03 EE 
,4E,06, 00, 23,5E, 23, 56, 986F 

215 DATA EB, 11, A4, AC, ED, BO, AF, 12,21 DFY 
,M,AC, DD, 5E, 00, DD, 56, AOFB 

220 DATA 01,CD,00, B9, CD, D2, EG, CD,03 >FF 
,89,C9,FE, 05, C0, DD, ES, AADB 

225 DATA CD, 43,0, DD,E1, CD, F4, Ai, CD )FB 
,6C,BB, DD, 35, 00, DD, 35, B4C3 

230 DATA 00,DD, 35, 02, DD, 35, 02, 3,96 )EB 
,CD, 5, BB, DD, 46,02, 3€, BBO4 

235 DATA 9A, CD, 5A,BB, 10,FB,3E,9C,CD >GF 
SA, BB, DD, 46,00, C5, 3E, C36D 

240 DATA 95, CD, SA, BB, DD, 46, 02, 3E, 09 )FG 
CD, 54, BB, 10,FB, 3€, 95, CB10 

245 DATA CD,5A,BB, C1, 10,E8, 3E,93, CD >FG 
,SA,BB, DD, 46, 02, 3E, 94, D35B 
250 DATA CD,5A,BB, 10,FB,3E, 99, CD, 5A )FR 
,BB,DD, 34, 06, DD, 34, 04, DB2D 
255 DATA CD,F4,A1,C9,DD,66,06, 25, DD FF 
,6E,04, 2D, DD, 7E, 02, 84,E323 
260 DATA 57,15, DD, 7E,00,85,5F, 1D,CD FX 
,66,BB, CO, FE, 01, CO, 21, FAB2 





æ 


265 DATA AC, A2, DD, 7E, 00, 3D, 47,87,80 >FD 
,85,6F, 7E, 32, A9, A2, 23,F1C8 
270 DATA 5E, 23,56, ED, 53, AA, A2, D5,DD >FG 
,E1, 34, A9, A2, 47,C5, CD,FBIC 
275 DATA 90, A2, C1, DD, 23, DD, 23, 10,F5 >FH 
,3A, AB, A2, DD, 2A, AA, A2,03EB 
280 DATA 3D,87,DD,85,DD,6F,3E, 18,CD )FZ 
,SA,BB, CD, 90, A2, 3E, 18, 0BEA 
285 DATA CD, 5A,BB, CD,06, BB,FE, F2,28 >FB 
,11,FE, F0, 28,0, FE, F3, 1597 
290 DATA 28, 1A,FE, F1,28, 16,FE,OD,C8 >FB 
,18,CE, CD, 90, A2, 34, AB, 1DAO 
295 DATA A2,3D, 20,03, 3A, A9, A2, 32, A8 DED 
,À2, 18, BD, CD, 90, A2, 3A, 24B1 
300 DATA A9, A2, 47, 3A, AB, A2, BB, 20,01 EN 
,AF,3C, 32, AB, A2, 18, A9, 2BC8 
305 DATA DD,6E, 00, DD,66,01,56, 23,5E FR 
,23,E8, CD, 75, BB,EB, 46, 3364 
310 DATA 23,7E, CD, 5A,BB, 10,F9,C9,01 >EK 
,00,00,00, 05, BE, A2, 06, 3928 
315 DATA CB, 2,03, D4, A2, 05, DA, A2,06 EX 
,E4,A2,03,F0, A2,F6, A2, 4248 
320 DATA 02,A3,0F, A3, 1A, A3, 26, 3,31 DEY 
,A3,3F, A3, 4D, A3,5B, A3, 48C9 
325 DATA 69,43, 77,A3,85, A3, 9D, A3,B5 DFI 
,À3,CD,A3,DF, A3,F1,A3,5335 
330 DATA 03, A4,15,A4,27, 4,37, 4,47 DEY 
,M,57,M,67, A4, 77, A4, 5A4T 
335 DATA 67, A4,92, A4, 9D, A4,02,01,09 >DQ 
,20,44,65,66,69,6E, 69, 6064 
340 DATA 72,20, 12, 01,04, 20,45, 78,74 DDE 
,72,65,6D, 75, 6D, 20, 22, 64CC 
345 DATA 01,08, 20,54,72,61,63,65, 72 CL 
,20,32,01,08, 20,54, 72, 6897 
350 DATA 61,76,61,69,6C, 20, 42, 01,08 DE 
,20,44,69, 76,65, 72, 73, 6D9C 
355 DATA 20,01,01,08,56,61,6C,69,64 >CK 
,65, 72, 20, 20,20, 20, 01,7111 
360 DATA 03,0B,46,6F,6E, 63, 74,69,6F >DP 
,6E, 20, 20, 20, 01,05, 0B, 74D0 
365 DATA 49,6E, 74,65, 72,76,61,6C,6C )DA 
,65,20,01,07,08,56, 65, 79D4 
370 DATA 63, 74,6F,72,69,65,6C,6C,65 EG 
,01,09,08, 43,6F, 72, 72, 7F42 
375 DATA 69,67,65, 72, 20, 20, 20,01,0B >DN 
,08,51,75,69, 74, 74,65, B3DC 
380 DATA 72,20, 20, 20,20, 01,01,15,49 >DA 
,6E, 74,65, 72, 76,61,6C, B82A 
385 DATA 60,65, 20,64,65, 20, 74, 72,61 >DB 
,63,65, 72, 20, 01,03, 15, 8CBE 
300 DATA 52,65,63,68,65, 72,63,68,65 >Dk 
,20,64,65, 73, 20,65, 78, 9240 


D 395 DATA 74,72,65,6D,61,01,05,15,51 >DZ 


À 


—__ 





,75,69, 74, 74,65, 72, 20, 97E2 

400 DATA 20,20, 20, 20, 20, 20, 20, 20,20 >CX 
,20,20, 20,20, 01,01, 0F, 9993 

405 DATA 45,66,66,61,63,65, 72, 20,65 >DU 
,63,72,61,6E, 20, 20, 01, 9EA9 

410 DATA 03,0F,54, 72,61,63,65, 72,20 DR 
,61,78,65, 73, 20, 20, 20, A34D 

415 DATA 20,01,05,0F,54,72,61,63,65 >DV 
,72,20,66,6F,6E,63, 74, AB1D 

420 DATA 69,6F,6E, 01,07, 0F,54, 72,61 EE 
,63,65, 72, 20, 74,61, 6E, AD3E 

425 DATA 67,65,6E, 74,65, 01,09,0F,51 >DV 
75,69, 74, 74,65, 72, 20,B278 

430 DATA 20,20, 20, 20, 20, 20, 20, 01,01 >DA 
,0D,43,61,60,63, 75, 6C, B5BB 

435 DATA 74,72,69,63,65, 20, 20, 01,03 >DK 
,00,54,72,61,63,65, 72, BAB4 

440 DATA 20,64,72,6F,69, 74,65,01,05 >DP 
,0D,45,71,75,61, 74,69, BFA7 

445 DATA 6F,6E, 73, 20, 20, 20, 20, 01,07 >DK 
,00,43,61,60,63, 75, 6C, C3E0 

450 DATA 65, 72, 20,61,69, 72,65,01,09 >DL 
,0D,47,72,6F, 73, 73,69, C906 

455 DATA 72,20, 74,6F,6E, 65,20, 01,0B >EH 
,00,51,75,69, 74, 74,65, CE09 

460 DATA 72,20, 20, 20, 20, 20, 20,01,01 >DQ 
,08,44,65, 73, 73,69, GE, DLAB 

465 DATA 65, 72,01, 03,08, 49, 6D, 70, 72 >DQ 
,69,6D,65, 72, 01,05, 08, DSE1 

470 DATA 51,75,69, 74, 74,65, 72, 20,00 >CD 
00,00, 00, 00, 00, 00, 00, DBEF 

475 DATA CD, BA, BB, CD,E7, BB, 32,BC, JA >GK 
,CD,68, 94, 21, 8F,01, 22, 08DE 

480 DATA BD,9A, 11, 00,00, 3E, 07, 32, BF ED 
,9A, CD, 78,94, 0E, 00, 3A, 0E40 

485 DATA BF,9A,47,E5,D5,C5, CD, FO,BB >GK 
,C1,D1,21,BC, 9A,BE, E1,197F 

490 DATA 37,20,01,A7,CB, 11,28, 28, 10 DFE 
,E9, CD, AE, OA, 79, CD, AS, 2049 

495 DATA 94, 13,E5, 21,7F,02, 37,ED,52 EN 
,E1,38,05, 2A, BD, 94, 18, 2704 

500 DATA CC, 23, 7C,B4, 28, 11, 00,00, 22 DER 
,8D, 94, 3, 07, BD, 20, BA, 2CBA 

505 DATA 7C,B4, 20,B6,3E, 04, 32, BF, 9A FH 
,18,AF,3E, 1B, CD, A5, JA, 3389 

510 DATA 3E,41,CD, AS,9A, 3€, 07, CD, A5 >FH 
,9A,C9,E5,3E, 42, CD, LE, 3BAE 

515 DATA BB,E1,28,02,E1,C9,3E,0D,CD >FR 
,A5,9A,3E, OA, CD, A5, JA, 43C9 

520 DATA 3E, 1B, CD, AS, A, 3, 4C, CD, A5 >GH 
,9A,3E, 7F, CD, 5,94, 3, 4BCB 

525 DATA 02, CD, A5, 94, C9, CD, 2E, BD, 38 >GR 
,FB,CD, 28, BD, C9, 34, BF, 5504 

530 DATA 9A,FE,07,CB,AF,CB,11,CB, 11 EZ 
,CB,11,C9,00, 00,00, 00, 5B77A 
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Pierre-Georges MARECHAL 





Voici un sous-programme très 
pratique pour ceux d’entre vous 
qui font des logiciels où il est 
nécessaire de classer des listes 
de noms par ordre alphabétique. 


l existe différentes méthodes de tri 

alphabétique ; celle-ci n’est pas une 
invention, elle existe dans tous les ma- 
nuels d’informatique et présente l’avan- 
tage d’être très rapide. Par exemple, pour 
classer 200 noms, il suffit de 20 secon- 
des sur CPC 6128 et de 5 secondes sur 
PC. La méthode usuelle demande envi- 
ron 5 minutes !.… 


Regardons le listing : 

—La ligne 10 dimensionne le tableau à 
classer. 

Les lignes 20 et 30 chargent (pour l’exem- 
ple) les datas dans le tableau originel. 
Ensuite vient le programme de tri. 

La ligne 200 donne le tableau classé. 


Cela est un exemple et il est très facile 
d'intégrer sous forme de routine la par- 
tie active du programme. Une seule chose 
à respecter : la cohérence de la variable 
du tableau (Nom<L$> et Indice <I>). 
En espérant que ce petit programme vous 
sera très utile. . 


NOTE : Pour transformer ce programme 
de tri alphabétique en tri numérique rien 
de plus simple. Il suffit de modifier les 
variables alphabétiques en variables 
numériques. 

c.—à-d..L$ — Let Pers$ — Pers 


4 ’Pierre-Georges MARECHAL Le 9 Av >FD 
ril 1988 

5° PROGRAMME TR >FE 
Il 

6! >FF 
10 MODE 2:CLS:DIM L$(20) :RESTORE 22 >DD 
0 

20 FOR i=1 TO 20 :’ Chargesent du t >DA 
ableau 

30 READ L$(1):NEXT 1! NL 
31 LOCATE 25,1:PRINT"<(< DEHONSTRATI >MQ 
ON »" 

10? LD 
50 ’+ Progranse de tri )LE 
60 k=1:GO0SUB 200:k=40:"Ecriture du >QV 
tableau originel 

61 LOCATE 8,22:PRINT"TABLEAU NON C LG 
LASSE" 

70 n=i-1:e=INT(n/2) >KG 
80 IF e<1 THEN GOSUB 200:LOCATE 48, >WG 
22:PRINT "TABLEAU CLASSE" : PRINT : END 





90 nd=1 >RG 
100 IF nd<(n-e) OR nd=(n-e) THEN 12 >BU 
0 

110 e=INT(e/2):G0T0 80 QT 
120 na=nd >HJ 
130 IF 1$(na)<L$(nate) OR 1$(na)=L$ >QY 
(nate) THEN 160 

140 per$=1$(na):1$(na)=1$(nate):1$( 3YE 
nate)=per$:na=na-e 


150 IF na)i OR na=1 THEN 130 JUN 
160 nd=nd+1 JW] 
170 GOTO 100 >YF 
180 *# Fin du prograsse de tri >RK 
190 ’*# Ecriture tableau classe )TA 


200 FOR i=1 TO 20:LOCATE 10+k,i:PRI >BC 

NT 1$(1) :NEXT:RETURN 

210 ? >RD 
220 DATA a, b,c,d,e,bonjour lecteur, >ZZ 
€, 8€, ff,wouah-wouah!, dd, cc, dd,bonjo 

ur ami CPC, abc, abcd, aaaaa, f gh, bonne 
chance,rtte 





METEO 


Valable Ar 





Martial STAUB 


Quel temps faisait-il le 31mars 
1922 ? Vous ne le savez pas ? 
Si vous aviez eu un Amstrad et 
le programme Météo à cette 
époque, vous pourriez 
immédiatement le savoir. 


n effet Météo peut être utilisé com- 

me base de données concernant les 
phénomènes atmosphériques. Vous ob- 
tiendrez ainsi les moyennes par année ou 
la représentation graphique d'un jour par- 
ticulier… 
Tapez le premier listing et sauvez-le sous 
le nom de METEO. Puis faites de même 
avec le deuxième programme qui sera 
intitulé METEO. 


à 





METEO 
10 "RRSABERAEREERAESNSRENSAAEIRRES >LA 
20’ HETEOROLOGIE >LB 
D ? )LC 
40? Cc) STAUB  HARTIAL >LD 
50 ? SEPTEMBRE 1988 )LE 
60 WOTTIIIIIIIÉFIIIIITIITIIIIIT EI >LF 
70 )LG 
80 ? INITIALISATION >LH 
90 )LJ 
100 GOSUB 360 >GK 


110 INK 0,15:INK 1,15:INK 2,15:INK UV 
3,15:INK 4,15:INK 5,15:INK 6,15: INK 
7,15:INK 8,15:INK 9,6,2:INK 10,0:1 D 


D>NK 11,15:INK 12,15:BORDER 15:H0DE 0 

:PAPER 11:PEN 10:CLS 

120 LOCATE 3,6:PRINT"...UN INSTANT. )HB 
Li] 


130 SPEED INK 40,40 >HD 
140 PEN 9:LOCATE 6,1:PRINT'ME TE DLY 
0*:PEN 10:LOCATE 2,3:PRINT"(c) STAU 

B MARTIAL" 

150 ORIGIN 28,290:DRAV 582,0,0:DRAU DNT 
582,-276:DRAV 0,-276:DRAU 0,0:0RIG 

IN 32,288:FILL 6 

160 GOSUB 320:G0SUB 280:x=-60:FO0R 5 >HG 
=1 TO 3:x=1+180:G0SUB 220:NEXT 

170 INK O,0:INK 1,26:1MK 2,1:INK 3, DWL 
24:1NK 4,18:INK 5,9:1INK 6,11:INK 7, 
3:INK 8,23:INK 9,2:INK 11,15:INK 12 
,20:SPEED INK 20,20:INK 13,2,15:L0C 
ATE 2,6:PEN 13:PRINT"HODE D'EMPLOI 
O/N°" 

180 a$=INKEYS:1F a$="" THEN 180 

190 IF UPPER$(a$)="0" THEN 1080 


DXA 
>XP 


200 IF UPPER$(a$)="N" THEN LOCATE 1 DRG | 


»5:PRINT STRING$(19,128) :G0TO 1060 

210 GOTO 180 De 
220 ORIGIN x,272:DRAV 4,0,2:DRAUR 4 >GL 
72:DRAUR 4,-2:DRAUR 12,-2:DRAUR 10 
:2:DRAUR 4,0:DRAUR 12,6:DRAUR 10,4: 
DRAUR 10,2:DRAUR 6,-4:DRAUR 10,-10 

230 DRAUR 8,-4:DRAUR 6,-4:DRAUR 4, - >HA 
6:DRAVR 2,-10:DRAUR -4,-4:DRAUR -6, 
-2:DRAUR -4,0:DRAVR -4,-4:DRAUR -6, 
-2:DRAUR -4,0:DRAVR -6,-4:DRAUR -4, 
2:DRAUR -2,2:DRAUR -6,0 

240 DRAUR -6,2:DRAUR -4,2:DRAWR -4, 
O:DRAUR -4,4:DRAUR -2,6:DRAUR -6, -2 
:DRAUR -6,-2:DRAUR -4,-2:DRAWR -6, - 
2:DRAWR -6,0:DRAUR -6,2:DRAUR -4,2: 
DRAUR -4,4:DRAUR -4,6:DRAUR -4,6 
250 DRAWR 2,6:DRAUR 2,4:DRAUR 2,4:D >KV 
RAUR 2,2 

260 ORIGIN x+10,240:FILL 2 
270 RETURN )ZE 
280 DEG:0RIGIN 564,254:FOR i=1 TO 3 >HM 
60 STEP 6:PLOT 22#SIN(1),222C05(1), 
3:NEXT :RAD 

290 ORIGIN 566,252:FILL 3 

300 DEG:FOR 1=1 TO 360 STEP 30:0RIG 
IN 564,254:DRAU 284SIN(1),28#C0S(i) 
:NEXT :RAD 

310 RETURN DA LS 
320 ORIGIN 32,46:DRAW 574,0,5:DRAU HR 
574,-30:DRAU 0,-30:DRAV 0,0:0RIGIN 
36,44:FILL 5 

330 PEN 4,1:LOCATE 4,20:PRINT CHR$( DJN 
240) :LOCATE 4,21:PRINT CHR$(241):PE 

N 0,1:LOCATE 4,22:PRINT CHR$(242) :P 


)DF 


>TP 
>GX 


! 








EN 4,1:LOCATE 6, 20:PRINT CHR$ (240) : 
LOCATE 6,21:PRINT CHR#(241) :PEN 0,1 
:LOCATE 6,22:PRINT CHRS (242) 

340 PEN 7,1:LOCATE 11,21:PRINT d1$: >LD 
PEN 12,1:LOCATE 11,22:PRINT d2$ 

350 PEN 0,0:RETURN NT 
360 SYMBOL AFTER 160 )PZ 
370 SYMBOL 160,0,0,0, 238, 138, 234, 42 DER 
238 \ 

, 

380 SYMBOL 161,0,0,0, 142,136, 140,13 DFI 
6,238 

390 SYMBOL 162,0,0,0, 160, 160, 160, 16 >FV 
0,184 

400 SYMBOL 163,0,0,0, 234,170, 170, 17 DFR 
0,174 

410 SYMBOL 164,0,0,0, 238, 168, 238, 17 DFL 
0,174 

420 SYMBOL 165,0,0,0, 238, 136, 206, 13 >FZ 
0,238 

430 SYMBOL 166,0,0,0, 238, 138, 138, 13 DFR 
8,238 

440 SYHBOL 167,0,0,0,170,170, 170, 17 )FZ 
0,228 

450 SYMBOL 168,0,0,0, 238, 138, 204, 13 DFK 
8,234 

460 SYMBOL 169,0,0,0,224,64,64,64,6 )CH 
4 

470 SYMBOL 170,0,0,0, 232, 168, 232, 13 DFY 
6,142 

480 SYMBOL 171,0,0,0, 186, 162, 178, 16 DFV 
2,187 

490 SYMBOL 172,0,0,0, 168, 168, 144,16 DFC 
8,168 

500 SYMBOL 173,0,0,0, 238, 168, 172, 16 )FQ 
8,174 

510 SYMBOL 174,0,0,0,187, 162, 187, 17 FT 
0,187 

520 SYMBOL 175,0,0,0,170, 42,41,42,1 DCK 
86 

530 STMBOL 176,0,0,0,128, 128, 0,128, >DB 
128 

540 SYMBOL 177,0,0,0, 238, 170, 172, 17 DFF 

0,234 

550 SYMBOL 178,0,0,0,238, 136,236, 40 )EZ 
238 

L2 

560 SYMBOL 179,0,0,0, 224, 128, 128, 12 DFL 
8,224 

570 SYMBOL 180,0,0,0,170,170, 234,17 DFZ 
0,174 

580 SYMBOL 181,0,0,0,171,234, 170,17 DFZ 

0,171 


4 590 SYMBOL 182,0,0,0,56,160,176,160 >DL 
56 
’ 


à 








Ÿ 600 SYMBOL 183,0, 0,0, 238, 138, 142, 13 DFE 


8,234 

610 SYMBOL 184,0,0,0,138, 142, 138,13 FF 
8,234 

620 SYMBOL 185,0,0,0, 224, 128, 192, 12 DFF 
8,224 

630 SYMBOL 186,0,0,0, 238, 138, 202, 13 DFF 
8,142 

640 SYMBOL 187,0,0,0, 238, 164, 196, 16 DFY 
4,164 

650 SYMBOL 188,0,0,0,171,170, 170,17 DEV 
0,75 ; 
660 SYMBOL 189,0,0,0, 163,162, 163,16 FU 
2,187 

670 SYMBOL 190,0,0,0,187,41,41,41,1 >CV 
69 

680 SYMBOL 191,0,0,0,128,0,0,0,0  DYT 
690 SYMBOL 192,0,0,0, 238, 72, 76, 72,7 CU 
8 

700 SYHBOL 193,0,0,0, 174,234, 174,16 DFT 
8,168 

710 SYMBOL 194,0,0,0, 238, 164, 228,16 DFP 
4,164 

720 SYMBOL 195,0,0,0, 174,170, 172,17 DFE 
0,234 

730 SYMBOL 196,0,0,0,174, 168, 172,16 DER 
8,78 

740 SYMBOL 197,0,0,0, 238, 164,164,16 DFV 
4,164. 

750 SYMBOL 198,0,0,0, 160, 160,64, 160 DEP 
,160 

760 SYMBOL 199,0,0,0, 234, 138, 202, 13 DFR 
8,238 

770 SYMBOL 200,0,0,0, 238, 136,200, 13 DFX 
6,238 

780 SYMBOL 201,0,0,0, 142, 138, 142,13 DFY 
8,234 

790 SYMBOL 202,0,0,0,187,170,178,17 DFL 
0,171 

800 SYMBOL 203,0,0,0, 174, 40,44, 40,1 )CC 
74 

810 SYMBOL 204,0,0,0,87,85,85,85, 39 >BH 


820 SYMBOL 205,0,0,0,81,81,81,81,93 >BQ 


830 SYMBOL 206,0,64, 128, 192,0, 128,0 DEX 
,192 

840 SYMBOL 207,0,0,0, 238, 170, 204,17 DFY 
0,234 

850 SYMBOL 208,0,0,0,234, 170, 170,17 DFC 
0,238 

860 STMBOL 209,0,0,0, 162, 162, 162, 16 FL 
2,187 

870 SYMBOL 210,0,0,0,59, 42, 59,42, 17 DBH 
0 


4 880 SYHBOL 211,0,0,0,176, 168,40, 168 DFE 


,176 

890 SYMBOL 212,0,0,0, 224, 128,224, 32 EH 
,224 

900 SYMBOL 240,0, 24,60, 126,255,255, HU 
255,255 

910 SYMBOL 241,255, 255,255, 255,255, DKT 
126,60, 60 

920 SYMBOL 242, 24, 24, 24, 24,24, 24,24 DDC 
60 

, 

930 SYMBOL 243,1,3,7,15,31,63, 127,2 )CZ 
55 

940 SYMBOL 244,128, 216,248, 248,248, DHZ 

252, 254,255 

950 SYMBOL 245,127,115,115,127,127, DMV 
115,115,115 

960 SYMBOL 246, 254,230, 230, 254,254, DHJ 
254,254, 254 

970 SYMBOL 247,0,0, 32, 20, 73, 73,42, 1 DCE 
8 

980 SYMBOL 248, 18, 146,82, 84,89,82,5 DFE 
2,24 

990 SYMBOL 249, 37, 37,60, 60,60,60,60 >DB 
60 

’ 

1000 SYMBOL 250,60, 126,255, 255,255, DKW 


126,60, 24 

1010 SYHBOL 251,60,60,60,60,60,60,6 >EB 
0,60 

1020 SYMBOL 213,0,0,0,206, 168,172, 1 >GJ 
68, 206 

1030 SYMBOL 214,0,0,0, 168,232, 171,1 >GR 
68,168 

1040 di$=CHRS(243)+CHR$ (244) :d2$=CH DVP 
R$ (245) +CHRS (246) 

1050 RETURN )EK 
1060 PEN 1:LOCATE 1,6:PRINT CHR$(18 >BK 
) ; TAB(6) "CHARGEMENT" 

1070 RUN "METEO!" )LL 
1080 *------------- )YB 
1090 "MODE D'EMPLOI ic 
1100 *---------- DIE 


1110 BORDER 13:NO0DE 2:1NK 0,13:INK )ZZ 
1,0:PAPER O:PEN 1:CLS 

1120 LOCATE 32,2:PRINT CHR#(24);" M DE 
ODE D'EMPLOI ";CHR$ (24) 

1130 PRINT:PRINT:PRINT" Ce Programs >RB 
e sert a enregistrer la Meteo jour 
apres jour, pour une annee” 

1140 PRINT" entiere par fichier... 2KJ 
1150 PRINT:PRINT" Le Menu principal )PQ 
comprend 7 Options 

1160 PRINT:PRINT" “;CHR$(24);" OPTI DZ 
ON 1 “;CHR$(24);" ... SAISIE DES DON 
NEES" 

1170 PRINT:PRINT" 

evez entrer successivement" 
1180 PRINT" . la date de DWN 


Vous d >XF 


| 











3 





l'enregistrement (JJMMAAAA)" 


1190 PRINT" . la tespera >QK 
ture maxi de la journee" 
1200 PRINT" . l'etat du DAT 


ciel - 5 possibilites au choix" 

1210 PRINT:PRINT" (11-SOLEIL »XD 
= ciel bleu, beau tesps => 1 jour d 

e soleil" 

1220 PRINT* [2]-ECLAIRCIES = >XU 
avec ou sans pluie ou neige, peu de 
soleil" 

1230 PRINT" (31-COUVERT = ave TL 
c ou sans pluie ou neige, pas de so 
leil" 

1240 PRINT" (41-DENI-VOILE = )FG 
peu de nuages, beaucoup de soleil" 

1250 PRINT" ([51-BROUILLARD EP DUF 

AIS = mauvaise visibilite, pas de s 
oleil® 

1260 PRINT CHR$(7) ; :LOCATE 25,25:PR PR 
INT CHR$(24);" Une touche pour tour 

ner la page ";CHR$(24) :CALL &BB06:C 

LS 


1270 PRINT:PRINT" . let on 
at du temps - 5 possibilites au cho 

ir" 

1280 PRINT:PRINT" [11-PLUVIE >WH 
UX = pluie continue ou par intersit 
ances* 


1290 PRINT" [21-NEIGE = teap >UR 
s neigeux” 

1300 PRINT* [31-0RAGEUX = or >XA 
age et pluie 

1310 PRINT* [41-SEC = temps KV 
sec" 

1320 PRINT* [51-HUMIDE = tem DUY 
ps huside” 


1330 PRINT:PRINT" . l'et >KZ 
at du vent - 3 possibilites au choi 
x 


1340 PRINT:PRINT" C11-CALME XV 


= pas de vent” 

1350 PRINT* (21-FORT = vent )DWW 
assez fort" 

1360 PRINT" (31-VIOLENT = ve WF 


nt tres fort, tespete" 
1370 PRINT:PRINT" ";CHR$(24);" OPTI DLV 
ON 2 ";CHRS(24);" ... VISUALISATION 
DU TEMPS" 
1380 PRINT:PRINT" Apres )HG 
avoir choisi le jour a visualiser 
; la Meteo vous est":PRINT" 
indiquee sous forme de graphiq 


À 








ue. En outre divers renseignements" 
:PRINT® vous sont cossu 
niques (saison-tenperature etc)" 

1390 PRINT CHR$(7);:LOCATE 25,25:PR >PW 
INT CHR#(24);° Une touche pour tour 

ner la page ";CHR$(24) :CALL &BB06:C 

LS 


1400 PRINT:PRINT" ";CHR#(24);" OPTI >AG 
ON 3 ";CHRS(24);" ...DOMINANTES ET 
MOYENNES PAR HOIS" 
1410 PRINT:PRINT" Vous HG 
renseigne, sous forse de tableau, 5 
ur la tesperature moyenne" :PRINT" 
pour chaque mois ainsi q 
ue sur le tesps noyen durant ce” 
1420 PRINT sense mois. 
Vous indique egalement le nombre de 
jours de soleil,":PRINT" 
de pluie et de neige” 
1430 PRINT:PRINT" ";CHR$(24);" OPTI KB 
ON 5 ";CHRS(24)5;" ... CHARGEMENT DES 
DONNEES" 
1440 PRINT:PRINT" Entre AC 
z l'annee concernee (AAAA) pour le 
chargement des donnees" 
1450 PRINT:PRINT" ";CHR$(24);" OPTI DLF 
ON 6 ";CHR$(24);" ... SAUVEGARDE DES 
DONNEES" 
1460 PRINT:PRINT" Entre >AK 
z l'annee concernee (AAAA) pour la 
sauvegarde des donnees* 
1470 PRINT:PRINT" ";CHRS(24);" OPTI )EH 
ON 7 ";CHR$(24);" ...LISTER LES DON 
NEES" 
1480 PRINT:PRINT® Comse )UP 
son non l'indique, liste toutes le 
s donnees a partir" 
1490 PRINT" du mois cho >PA 
isi, jusqu’au dernier enregistrenen 
t” 
1500 PRINT:PRINT" *;CHR$(24);" OPTI HP 
ON O ";CHR#(24);" ... QUITTER LE PRO 
GRAMME" 
1510 PRINT CHR$(7) ; :LOCATE 25,25:PR >PP 
INT CHRS(24);" Une touche pour tour 
ner la page ";CHRS(24) :CALL &BB0G:C 
LS 


)WB 


1520 LOCATE 24,2:PRINT CHR$(24);" R DFJ 
ENSEIGNENENTS COMPLEMENTAIRES *;CHR 
$(24) 

1530 PRINT:PRINT:PRINT® Lors de l’e )FE 
nregistresent des donnees et, apres 
avoir indique la tesperature":PRIN 

T" de la journee ; 13 possibilites 
vous sont donnees pour saisir le te 
aps de” 


1540 PRINT" la journee." )XQ 
1550 PRINT:PRINT" L'ordinateur se c >WA 
harge de detecter les erreurs event 
uelles pendant la saisie":PRINT" (e 
xeaple : NEIGE avec une tesperature 
de 15 dgrs). 

1560 LOCATE 29,25:PRINT CHR$(24);" 
UNE TOUCHE POUR DEHARRER “;CHR$ (24) 
1570 PRINT CHR$(7);:CALL &BBOG6:CLS: >GD 
LOCATE 26,11:PRINTC HARGEME 

NT METE 0":G0T0 1070 


)XJ 


METEO 1 





10 "--METEOU!-- LA 
20 ON ERROR GOTO 4110 >PH 
30 DIN dat$(368),tj(368),ec$(368),d >PP 
(368),s0$(15) 

40 i$="888.# dgrs":nn=0 >RR 
50 INK 0,26:INK 1,11:INK 2,12:INK 3 DDJ 
11 

60 di$=CHR$(243)+CHR$ (244) :d2$=CHR$ >TU 
(245)+CHR$ (246) 

70 90o$(1)=CHR$(160)+CHR$(161)+CHR$C DFC 
162) 

80 s0$(2)=CHR$(200)+CHR$(201)+CHR$( DCT 
202)+CHR$ (203) +CHR$ (212) 

90 50%(3)-CHR#(166)+CHR#(167)+CHR$C DRL 
168)+CHR$ (169) 

100 s0$(4)=CHR$(213)+CHR$(214)+CHR$ DDL 
(204) +CHR$ (205) +CHR$ (206) 

110 s0$(5)=CHR$(207)+CHR$(208)+CHR$ DDR 
(209) +CHR$ (210) +CHR$ (211) 

120 so%(6)=CHR$(170)+CHR$(167)+CHR$ DTL 
(171)+CHR$(172) 

130 s0$(7)=CHR$(173)+CHR$(174)+CHR$ DTY 
(175)+CHR$ (176) 

140 s0%(8)=CHR$(177)+CHR$(164)+CHR$ D'TP 
(199) +CHR$ (198) 

150 s04$(9)=CHR$(178)+CHR$ (179) >XC 
160 s0$(10)=CHR$(180)+CHR$(181)+CHR DHH 
$(182) 

170 s09(11)=CHR$(183)+CHR$(184)+CHR DHV 
$(185) 

180 so$(12)=CHR$(186)+CHR$ (187) >YZ 
190 s0$(13)=CHR$(188)+CHR8(189)+CHR DUG 
$(190)+CHR$ (191) 

200 s0$(14)=CHR$(192)+CHRS(193)+CHR DUG 


) 
210 so$(15)=CHR$(196)+CHR$ (197) 





$(168)+CHR$(194)+CHR$(195)+CHR$ (185 | 
Du 





220 ? RE 
230 *MENU RF 
240 ? >RG 
250 SPEED INK 10,10 >HA 


260 MODE 2:INK 0,0:INK 1,13:BORDER D)YQ 
13:PAPER 1:PEN O:CLS 
270 WINDOW#1,15,66,1,3:PAPER#1,0:PE >DQ 
N#1,1:CLS#1:LOCATES1,7,2:PRINTEI,"# 
44 HETEOROLOGIE #* 
#3" 
280 ORIGIN 24,304:DRAW 592,0,0:DRAW >VN 
592,-112:DRAU 424,-112:DRAV 424,-1 
40:DRAU 160,-140:DRAW 160, -112:DRAV 
0,-112:DRAN 0,0 
290 LOCATE 6,8:PRINT CHR$(24);°.1." PL 


;CHRS (24); ..,..... SAISIE DES DONN 
EES":LOCATE 6,10:PRINT CHR$ (24) ;".2 
.";CHRS(24);" VISUALISER J0 
URNEE" :LOCATE 6,12:PRINT CHR$(24);" 
.3.";CHRS(24);" ........., MOYENNE P 

AR HOIS" 

300 LOCATE 26,14:PRINT CHR$(24);".0 >2ZJ 
+ "ÿCHRS (24) ss Qui 
TTER" 

310 LOCATE 46,8:PRINT CHR$(24);°.5. >KD 
“;CHRS (24) 5"... CHARGER FICH 
IER*:LOCATE 46,10:PRINT CHR$(24);". 
6.";CHR#(24);" .........., SAUVER DO 


NNEES" :LOCATE 46,12:PRINT CHR$(24) ; 
OT." CHRS (24) 5 sos sson se 
.LISTER" 

320 IF f$Q°** THEN LOCATE 30,5:PRIN DUF 
T'ANNEE ";UPPER$(f$);" EN MEMOIRE" 

330 IF n>nn THEN LOCATE 9,22:PRINT" DXX 
..N'OUBLIEZ PAS DE SAUVEGARDER VOS 
NOUVEAUX ENREGISTREMENTS. . .* 


340 a$=INKEYS:IF a$="" THEN 340 )XN 
350 IF a$="{" THEN 430 >NQ 
360 IF a$="2" THEN 1340 >PH 
370 IF a$="3" THEN 1740 >PU 
380 IF a$=°7" THEN 2230 >PU 
390 IF a$="5" THEN 2440 >P4 
400 IF a$="6" THEN 2550 >PQ 
410 IF A$="0" THEN 4180 >PL 
420 GOTO 340 >YK 
430 >RH 
440 "SAISIE )RJ 
450 >RK 
460 BORDER 13:CL5 HZ 


470 ORIGIN 196,386:DRAV 232,0,0:DRA >YG 
W 232,-22:DRAW 0,-22:DRAU 0,0:LOCAT 

E 26,2:PRINT CHR#(24);" ENREGISTREN 
ENT DES ";CHRS (24) 

480 IF n=0 THEN 490 ELSE ddat$=MID$ DFF 


à 





 } (dat$(n),1,2)+°."+MID$(dat$(n),3,2) 


+". "+MID$(dat$(n),5,4) :LOCATE 2,4:P 

RINT"Dernier Enregistrement le ";dd 

att 

490 n=n#1 >EH 
500 LOCATE 2,6:PRINT"Entrez la Date >ZY 
(JJHMAAAA) : ":CHRS (18); : INPUT dda 
t$:1F ddat$="" THEN n=n-1:G0T0 220 

510 zq=0:FOR vi=1 TO LEN(ddat$):FOR >LV 
v2=0 TO 9 

520 IF VALCHID$(ddat$,vi,1))=v2 THE >MN 
N zq=zqti 

530 NEXT:NEXT:1F zq=8 THEN 540 ELSE )FP 
500 

540 IF LEN(ddat$)(8 OR VAL(HID$(dd >RR 
at$,1,2))>31 OR VAL(HID$(ddat$, 3,2) 
)>12 OR VAL(MID$(ddat$,1,2))<=0 OR 
VAL(HID$(ddat$,3,2))<=0 OR LEN(ddat 
$)>8 THEN GOSUB 1270:G0T0 500 

550 GOSUB 1310 >PG 
560 IF oui=1 THEN oui-0:BORDER 6,13 >LB 
:PRINT CHR$(7) ;:LOCATE 32,6:PRINT". 

. JOURNEE DEJA ENREGISTREE. .":FOR t= 

1 TO 1500:NEXT:BORDER 13:G0T0 500 

570 dat$(n)=ddat$:RESTORE 3400:F0R >VQ 
s=1 TO 12:READ da,da$:1F VALCHID$(d 
at$(n),3,2))=da THEN dati$=NID$(dat 
$(n),1,2)+" "+da$t" "+NID$(dat$(n), 


5,4) 

580 NEIT )EJ 
590 LOCATE 32,6:PRINT CHR$(18) ;dati DDT 
$ 


600 LOCATE 2,8:PRINT"Temperature de >KD 
la Journee  : ":;CHR$(18);: INPUT t 

j(n) 

610 IF tj(n)>99 OR tj(n)<-99 THEN 6 )CJ 

00 

620 LOCATE 32,68:PRINT CHR$(18) ;USIN >NU 

G i$;tj(n) 

630 LOCATE 2,10:PRINT"Etat du ciel 

: (1). SOLEIL [2] 

.ECLAIRCIES  [3).COUVERT" :LOCATE 

32,11:PRINT"C41.DENI-VOILE {5 
1.BROUILLARD EPAIS" 

640 LOCATE 32,12:PRINT"Votre choix >ZU 
: “sCHR# (18); : INPUT cho:1F cho(1 OR 
cho>5 THEN PRINT CHR$(7);:G0TO 640 

650 RESTORE 3370:FOR 5-1 TO 5:READ )CH 

da1$,da$:1F cho=VAL(dai$) THEN 5-5: 

eci$-da$ 

660 NEXT >EH 

670 IF eci$="VOILE" THEN eci$="DENI >KC 

-VOILE* 

680 LOCATE 32,10:PRINT CHR#(20) sect DDT 

$ 


>TQ 


8690 ect(n)=dait:dait-"":da-0:dat="" )BL 


700 IF ec$(n)="5" THEN ec$(n)=ec$(n >PY è 


)+"*0":G0TO 820 
710 LOCATE 2,12:PRINT"Etat du Teaps DWV 


: [11.PLUVIEUX 
[21.NEIGEUX  [3]).0RAGEUX" :LOCATE 
36, 13:PRINT" (4].SEC 
C51.HUNIDE" 


720 LOCATE 32,14:PRINT"Votre choix )ZU 
: “:CHRS(18);: INPUT cho:1F cho(i OR 
cho>S THEN PRINT CHR$(7);:G0T0 720 

730 IF (ec$(n)="1" OR ect(n)="4") À )FU 
ND cho=1 THEN BORDER 6,13:PRINT CHR 
$(7);:LOCATE 20,22:PRINT"...CIEL BL 

EU OU VOILE AVEC PLUIE IMPOSSIBLE. . 
.":FOR t=1 TO 2800:NEXT:BORDER 13:L 
OCATE 20,22:PRINT CHR$(18):G0TO 72 

0 

740 IF (ec$(n)="1" OR ec$(n)="4") À >F4 
ND cho=2 THEN BORDER 6,13:PRINT CHR 
$(7);:LOCATE 20,22:PRINT"...CIEL BL 

EU OU VOILE AVEC NEIGE IMPOSSIBLE. . 
.":FOR t=1 T0 2800:NEXT:BORDER 13:L 
OCATE 20,22:PRINT CHR$(18):G0TO 72 

0 

750 IF (ec$(n)="1" OR ec$(n)="4") À DAJ 
ND cho=3 THEN BORDER 6,13:PRINT CHR 
$(7);:LOCATE 20,22:PRINT"...CIEL BL 

EU OU VOILE ET ORAGE IMPOSSIBLE..." 
:FOR t=1 TO 2500:NEXT:BORDER 13:L0C 
ATE 20,22:PRINT CHR$(18):G0T0 720 

760 IF tj(n)>5 AND cho=2 THEN BORDE )CB 
R 6,13:PRINT CHR$(7); :LOCATE 20,22: 
PRINT"...NEIGEUX AVEC"; tj(n) ; "DEGRE 

S IMPOSSIBLE. ..":FOR t=1 TO 2500:NE 
IT:BORDER 13:LOCATE 20,22:PRINT CHR 
$(18):G0T0 720 

7170 IF tj(n)<-5 AND (cho=1 OR cho=3 >HC 
) THEN BORDER 6,13:PRINT CHR#(7);:L 
OCATE 20,22:PRINT"...PLUVIEUX À ";t 
j(n);" DEGRES INPOSSIBLE...":FOR t= 
1 TO 2500:NEXT:BORDER 13:LOCATE 20, 
22:PRINT CHR$(18):GOT0 720 

780 RESTORE 3380:FOR 5-1 TO 5:READ 
dai$,da$:1F cho=VAL(dai$) THEN s=5: 
eci$-da$ 


790 NEIT >FB 
800 LOCATE 32,12:PRINT CHR$(20) ;eci >DN 
$ 


810 ect(n)=ect(n)+dai$:da1$="":da$= >KC 

“*:cho=0 

820 LOCATE 2,14:PRINT"Etat du Vent )EG 
: (11.CALHE [2] 

.FORT (31. VIOLENT" 

830 LOCATE 32,15:PRINT"Votre choix )Z1 

: ";CHRS (18); : INPUT cho:1F cho(i OR 

cho)3 THEN PRINT CHR$(7);:GO0T0 830 








840 RESTORE 3390:FO0R s=1 TO 3:READ CG 
dai$,da$:1F cho=VAL(dai$) THEN 5=3: 
ec1$=da$ 


850 NEXT )EJ 
860 LOCATE 32,14:PRINT CHR$(20) ;eci >DX 
$ 

670 ec$(n)=ect$(n)+da1$:da1$="":da$= >KJ 
“*:cho=0 

680 GOSUB 990 )KD 


890 IF tj(n)<5 AND MID$(ec$(n),2,1) 
©)"2* THEN LOCATE 2,16:PRINT"Sol en 
neige (O/N) :*:GO0SUB 950 
900 LOCATE 22,24:PRINT"Confirmez-vo >NX 
us les donnees (0/N)" 

910 a$=INKEYS:1F a$=-"" THEN 910 )XC 
920 IF UPPER$(a$)="0" THEN GOTO 220 DBZ 
930 IF UPPER$S(a$)="N" THEN dat$(n)= >CU 
“v:tj(n)=0:ec$(n)="":d(n)=0:n=n-1:G 

OTO 220 

940 GOTO 910 >ZK 
950 a$=INKEYS:1F a$="" THEN 950 )IL 
960 IF UPPER$(a$)="0" THEN d(n)=27: >BD 
LOCATE 32,16:PRINT"SOL ENNEIGE" :RET 

URN 

970 IF UPPER$(a$)="N" THEN LOCATE 3 DWV 
2,16:PRINT"SOL NON ENNEIGE" :RETURN 

980 GOTO 950 >AH 
990 ? TJ 
1000 IF ec$(n)="141" OR ec$(n)="151 >LF 
* THEN d(n)=1 

1010 IF ec$(n)="142* OR ec$(n)="143 3YT 
* OR ec$(n)="152" OR ec$(n)="153" T 
HEN d(n)=2 


WY 


1020 IF ec$(n)="241" THEN din)=3  >XP 
1030 IF ec$(n)="251* THEN dÜn)=4 IT 
1040 IF ect(n)="211" THEN d(n)=5  )1Q 
1050 IF ec$(n)="221" THEN d(n)=6  )DXU 
1060 IF ec$(n)="231" THEN d(n)=7  )XI 


1070 IF ec$(n)="242" OR ec$(n)="243 >HR 
* THEN d(n)=8 

1080 IF ec$(n)="252" OR ec$(n)="253 >HW 
" THEN d(n)=9 

1090 IF ec$(n)="212* OR ec$(n)="213 >NB 
* THEN d(n)=10 

1100 IF ec$(n)="222" OR ec$(n)="223 >HE 
* THEN d(n)=11 

1110 IF ec$(n)="232* OR ec$(n)="233 >NA 
* THEN d(n)=12 

1120 IF ec$(n)="341" THEN d(n)=13 
1130 IF ec$(n)="351" THEN d(n)=14 
1140 IF ec$(n)="311" THEN d(n)=15 
1150 IF ect$(n)="321" THEN d(n)=16 
1160 IF ec$(n)="331" THEN d(n)=17 


À 


)YB 
)YE 








1170 IF ec$(n)="342* OR ec$(n)="343 DNT 
* THEN d(n)=i8 

1180 IF ec$(n)="352" OR ect(n)="353 >NX 
* THEN d(n)=19 

1190 IF ec$(n)="312" OR ec$(n)="313 DNF 
* THEN d(n)=20 

1200 IF ec$(n)="322* OR ec$(n)="323 >NA 
* THEN d(n)=21 

1210 IF ec$(n)="332" OR ect(n)="333 >NE 
" THEN d(n)=22 

1220 IF LEFT$(ec$(n),2)="44" THEN d )FZ 
(n)=23 


| 1230 IF LEFT$(ec$(n),2)="45" THEN d >FC 


(n)=24 

1240 IF LEFT$(ec$(n),2)="43" THEN d )FC 
(n)=25 

1250 IF LEFT$(ec$(n),1)="5" THEN d( >FG 
n)=26 

1260 RETURN >FC 
1270 BORDER 6,13:PRINT CHR$(7);:LOC >»LB 
ATE 32,6:PRINT" ERREUR. ..":F 

OR t=1 TO 1500:NEXT:BORDER 13 

1280 RETURN DFE 
1290 BORDER 6,0:PRINT CHR#(7);:LOCA DFC 
TE 21,5:PRINT"  ...ERREUR...":FOR 

t=1 TO 1500:NEXT:BORDER 0 

1300 RETURN >EH 
1310 FOR 53=0 TO n-1:1F ddat$=dat$( >ZH 
53) THEN oui=1:53=n-1 


1320 NEIT >KH 
1330 RETURN FA 
1340 ? >YA 
1350 ?CONSULATION )B 
1360 ? >YC 


1370 INK 0,0:INK 1,26:INK 2,15:INK DAF 
3,15:INK 4,0:INK 5,15:INK 6,15: INK 
7,15:INK 8,15:INK 9,15:INK 10,15:IN 

K 11,15:1INK 12,15: INK 13,15: INK 14, 
15:INK 15,15 

1380 MODE 1:BORDER O:PAPER O:PEN 1: )FZ 
CLS 

1390 IF n=0 THEN LOCATE 5,11:PRINT" )HY 
AUCUNE DONNEE EN MEMOIRE... .":FOR 

t=1 TO 1500:NEXT:G0TO 220 

1400 sui=0 >PH 
1410 LOCATE 8,1:PRINT"QUEL TEMPS FA )TY 
ISAIT-IL ?* 

1420 LOCATE 2,5:PRINT"Date (JJMMAAA >KG 
À) :":;CHR$(18); : INPUT con$ 

1430 IF con$="" THEN 220 >QL 
1440 IF LEN(con$)(8 OR VAL(MID$(con )EU 
$,1,2))331 OR VALCNHID$(con$,3,2))>1 
2 OR VAL(MID$(con$,1,2))<=0 OR VAL( 
HID$(con$,3,2))€=0 OR LEN(con$)>8 T 
HEN GOSUB 1290:G0T0 1420 

1450 zq-0:FOR vi=1 TO LEN(con$):FOR >LF 


v2=0 T0 9 
1460 IF VAL(MID$(con$, vi, 1))=v2 THE MB 
N zq=zqti 
1470 NEXT:NEXT:1F zq=8 THEN 1480 EL )JF 
SE 1420 
1480 LOCATE 12,12:PRINT"...UN INSTA KB 
NT..." 
1490 FOR s=1 TO n >GB 
1500 IF dat$(s)=cont THEN ni=s:5=n: DAH 
sui=1: INK 0,15:INK 1,15:NO0DE 0:BORD 
ER 15:PAPER 11:PEN 4:CLS:LOCATE 4,2 
S:PRINT"..UN INSTANT. .":0RIGIN 30,2 
08:DRAW 580,0,0:DRAW 580, -194:DRAW 
0,-194:DRAV 0,0:G0T0 1510 ELSE 1530 
1510 ORIGIN 164,14:PLOTR 0,0,4:PLOT >DP 
R 4,0:PLOTR 12,0:PLOTR 4,0:PLOTR 8, 
O:PLOTR 4,0:PLOTR 16,0:PLOTR 4,0:PL 
OTR 46,0:PLOTR 4,0:PLOTR 4,0:PLOTR 
4,0:PLOTR 4,0:PLOTR 4,0:PLOTR 8,0:P 
LOTR 4,0:PLOTR 16,0:PLOTR 4,0:PLOTR 
16,0:PLOTR 4,0:PLOTR 4,0:PLOTR 4,0 
1520 PLOTR 16,0:PLOTR 4,0:PLOTR 4,0 DAT 
:PLOTR 4,0:PLOTR 4,0:PLOTR 4,0:PLOT 
R 16,0:PLOTR 4,0:PLOTR 4,0:PLOTR 4, 
0:PLOTR 12,0:PLOTR 4,0:PLOTR 16,0:P 
LOTR 4,0:PLOTR 12,0:PLOTR 4,0:PLOTR 
4,0:PLOTR 4,0:PLOTR 4,0:PLOTR 4,0 
1530 NEXT:1F sui=0 THEN LOCATE 1,5: >MC 
PRINT CHR$(19) ;CHR$(18);" !! 
! AUCUNE DONNEE !!!":G0T0 1660 
1540 WINDOW82,2,19,13,24:PAPER#2,2: DKY 
PENS2, 1 
1550 GRAPHICS PAPER 11:RESTORE 3400 DUC 
:FOR s=1 TO 12:READ da, da$:1F VAL(M 
ID$(dat$(n1),3,2))=da THEN GOSUB 17 
20:5=12:TAG:0RIGIN 320-13,394:PLOT 
0,0,2:PRINT LEFT$(dat$(ni),2)+" "+d 
a$+" "4RIGHTS (dat (n1),4);:TAGOFF: 1 
=0 
1560 NEXT >LD 
1570 da=0:da$="":RESTORE 3370:FO0R s DUM 
={ TO S:READ da, dat:1F VAL(LEFT$ (ec 
$(n1),1))=da THEN ciel$=s0$(5):5=5 
1580 NEXT:1F LEFT$(ec$(n1),1)="5" T DFU 
HEN ten$=s0$(10):G0T0 1610 
1590 da=0:da$="":RESTORE 3380:FO0R s >XA 
=1 TO 5:READ da,da$:1F VAL(MID$(ec$ 
(n1),2,1))=da THEN test=s0$ (545) :5= 
5 


1600 NEIT JKJ 


1610 da=0:da$="":RESTORE 3390:FOR s 208 


=1 TO 3:READ da, da$:1F VAL(MID$(ec$ 
(n1),3,1))=da THEN ven$=s0$(5+10) 

1620 NEXT )LA 
1630 GOSUB 1670 >1G 
1640 IF sai$-"ETE" OR saî$=*PRINTEN DWZ 


+ 














PS* THEN GOTO 3410 

1650 IF sai$="AUTOMNE" OR sai$="HIV DUJ 
ER* THEN GOTO 3520 

1660 FOR t=1 TO 1500:NEXT:G0TO 1340 DBD 
1670 IF (MID$(dat$(n1),3,2)="12" AN DWA 
D VAL(MID$(dat$(n1),1,2))>=20) OR M 
ID$(dat$(n1),3,2)="01" OR MID$(dat$ 
(n1),3,2)=*02" OR (MID$(dat$(n1),3, 
2)="03* AND VAL(MID$(dat$(ni),1,2)) 
(20) THEN sai$="HIVER": c7=1:15=192: 
GOTO 1710 

1680 IF (MID$(dat$(ni),3,2)="03" AN 
D VAL(MID$(dat#(n1),1,2))>=20) OR M 
ID$(dat$(ni),3,2)="04* OR MID$(dat$ 
(n1),3,2)=*05* OR (MID$(dat$(n1),3, 
2)=*06* AND VAL(MID$(dat$(ni),1,2)) 
(21) THEN sai$="PRINTEMPS":c7-5:15= 
128:G0T0 1710 

1690 IF (MID$(dat$(n1),3,2)="06" AN DPJ 
D VAL(MID$(dat$(n1),1,2))>=21) OR M 
ID$(dat$(n1),3,2)="07" OR MID$(dat$ 
(n1),3,2)="08" OR (MID$(dat$(n1),3, 
2)="09* AND VAL(HID$(dat$(n),1,2)) 
(22) THEN sai$="ETE":c7-5: 15-224: 60 


DJ 


TO 1710 
1700 sai$="AUTOMNE" :c7=7:15=160 >AK 
1710 RETURN FC 


1720 13=LEN(da$)#32:1F 13-96 THEN 1 2HC 
3=160 ELSE IF 13=288 THEN 13=272 EL 

SE IF 13-256 THEN 13-256 ELSE IF 13 
=128 THEN 13=192 ELSE IF 13-224 THE 

N 13-240 ELSE 13=208 


1730 RETURN FE 
1740 ? )YE 
1750 *MOYENNE DYF 
1760 ? )YG 


1770 DIN tda(12,5),tdai(12,5),tda2( )EH 
12,3),ttj(12),ntj(12),ss0(12),pl (12 
),ng(12) 

1780 BORDER 15:HO0DE 2:INK 0,0:INK 1 DJE 
,15:CLS 

1790 LOCATE 21-(LEN(f$)/2),1:PRINT DRR 
CHR$(24);" MOYENNE ET DOHINANTE PAR 
MOIS-ANNEE ";f9;" *;CHRS(24) 

1800 LOCATE 30,11:PRINT"UN INSTANT DTY 
JE CALCULE® 

1810 FOR s=1 TO n:51=VAL(HID$(dat$( >KB 
s),3,2)) 

1820 tda(s1,VAL(LEFT$(ec$(s),1)))=0 DPF 
stdai(s1, VALCHID$(ec$(s),2,1)))=0:t 
da2(s1, VAL(MID$(ec$(s),3,1)))=0:ttj 
(s1)=0:ntj(s1)=0:ss0(s1)=0:pl(s1)=0 


:ng(s1)=0 


1830 NEXT 








nu $ 


1840 FOR s=1 TO n )GA 

1850 s1=VAL(HID$(dat$(s),3,2)) YJ 
1860 tda(s1, VAL(LEFT$(ec$(s),1)))=t >LX 

da(s1, VAL(LEFT$(ec$(s),1)))+1 

1870 tdai(s1, VALCHID#(ec$(s),2,1))) >QM 

stdai(s1, VAL(HID$(ec$(s),2,1)))+1 

1880 tda2(s1, VALCHID$(ec$(s),3,1))) DQT 

=tda2(s1,VAL(MID$(ec$(s),3,1)))+1 

1890 ttj(s1)=ttj(si)ttj(s):ntj(si)= >PU 

ntj(si)#1 

1900 IF HID$(ec$(s),1,1)="1* OR HID >XT 
$(ec$(s),1,1)=*4* THEN sso(si)=sso( 
s1)+1 

1910 IF HID$(ec$(s),2,1)="1" OR HID DTZ 
$(ec$(s),2,1)="3" THEN pl(si)=pl(si 

#1 

1920 IF HID$(ec$(s),2,1)="2" THEN n >QP 
g(s1)=ng(s1)+1 

1930 NEXT )LE 
1940 FOR s1=1 TO 12 LU 
1950 FOR s=1 TO 5:1F tda(si,0)(tda( >LB 
s1,s) THEN tda(s1,0)=tda(si,s) 

1960 NEXT | LH: 
1970 FOR s=1 TO 5:1F tdai(si,0)(tda )QW 
1(s1,s) THEN tdai(s1,0)=tdaf(si,s) 

1980 NEXT >LK 
1990 FOR s=1 TO 3:1F tda2(s1,0)(tda DQA 
2(s1,s) THEN tda2(s1,0)=tda2(s1,s) 

2000 NEXT >KD 
2010 NEXT >KE 
2020 LOCATE 1,3:PRINT CHRS(20) :G0SU >HG 
B 4040 

2030 RESTORE 3400:FOR s1=1 TO 12:RE DKH 
AD da, da$ 

2040 IF tda(s1,0)=0 OR tdal(s1,0)=0 HP 
OR tda2(s1,0)=0 THEN GOTO 2170 | 
2050 LOCATE 3,s51+6:PRINT da$:LOCATE >WQ 
15,s1+6:PRINT USING"#88. 4° ;ROUND(t 
tj(da)/ntj(da),1) 

2060 RESTORE 3370:FO0R s=1 TO 5:READ »>HQ 
da10, da10$ 

2070 IF tda(s1,0)=tda(si,s) THEN LO DAB 
CATE 23,s91+6:PRINT STRINGS (13, 128) : 
LOCATE 23,s51+6:PRINT HID$(da10$,1,1 

0) 

2080 NEXT >LB 
2090 da10=0:da10$="":RESTORE 3380:F >FG 
OR s=1 TO 5:READ da10,da10$ 

2100 IF tdai(si,0)=tdai(si,s) THEN )JF 
LOCATE 39,s1+6:PRINT STRING$(8, 128) 
:LOCATE 39,51+6:PRINT da10$ 

2110 NEXT >KF 
2120 da10=0:da109="" :RESTORE 3390:F )FZ 
OR s=1 T0 3:READ da10,da10$ 

2130 IF tda2(s1,0)=tda2(s1,s) THEN DHE 
LOCATE 50,51+6:PRINT STRING$ (8, 128) 


:LOCATE 50,51+6:PRINT da10$ 

2140 NEXT >KJ 
2150 LOCATE 62,s1+6:PRINT USING"##" DCT 
ssso(s1) :LOCATE 69,s1+G:PRINT USING 
“##";pl(si):LOCATE 76,51+6:PRINT US 


ING"#4";ng(s1); 
2160 RESTORE 3400:FOR s2=1 TO s1:RE )TH 
AD da, da$:NEXT 
2170 NEXT LB 


2180 tsso=0:tpl=0:tng=0:FOR s=1 TO CG 
12:tss0=tssotsso(s):tpl=tpltpl(s):t 
ng=tngtng(s) :NEXT 

2190 ttj=0:FOR s=1 TO n:ttj=ttjttj( >BJ 
s):NEIT:ttj=ttj/n:LOCATE 15,20:PRIN 

T USING"##8.8";ROUND(ttj,1):ttj=0 

2200 LOCATE 23,20:PRINT'IXLIANUINIX >XP 
XL" :LOCATE 38,20:PRINT'IXXIXXXIII" : 
LOCATE 50,20:PRINT" XXII" :LOCATE 
61,20:PRINT USING"##8" ;ts50:LOCATE 
68,20:PRINT USING"#48";tpl:LOCATE 7 
5,20:PRINT USING"#t{"stng 

2210 ERASE tda,tdai,tda2,ttj,ntj,ss 2NR 
o,pl,ng 

2220 PRINT CHR$(7) ; :LOCATE 31,24:PR DFK 
INT'UNE TOUCHE S.V.P.":CALL &BB06:G 


OTO 220 

2230 )IK 
2240 "LISTER )YA 
2250 ! )YB 


2260 CLS:LOCATE 33,2:PRINT CHR$S(24) DFT 
"LISTER ";CHRS(24) 
2270 LOCATE 3,5:PRINT"A partir de q >EB 
uel Mois :";CHRS (18); : INPUT an: IF a 
2=0 OR an)12 THEN 2270 
: 2280 LOCATE 1,3:PRINT CHR$(20) :G0SU JF 
B 2410 
2290 h=7:FO0R s=1 TO n:1F VALCHID$(d >DX 
at$(s),3,2))an THEN 2390 
2300 h=h+1:1F h=22 THEN PRINT CHR$( DQX 
7); :LOCATE 15,25:PRINT"Une touche p 
our tourner la page  [Rletour Men 
u*:h=68:CALL &BBOG6:1F INKEY(50)©-1 
THEN 220 ELSE LOCATE 1,4:PRINT CHR$ 
(20):GOSUB 2410 
2310 LOCATE 3,h:PRINT USING"##8";s )CY 
2320 LOCATE 8,h:PRINT MID$(dat$(s), >HD 
1,2)+°,"+NID$(dat$(s),3,2)+°."+NID$ 
(dat$(s),5,4):LOCATE 21,h:PRINT USI 
NG"HHS.H# dgrs";tj(s) 
2330 RESTORE 3370:F0R 51=1 TO 5:REA >NP 
D dai$,da$:1F NID$(ec$(s),1,1)=da1$ 
THEN s1=4:LOCATE 35,h:PRINT da$ 
2340 NEXT LA 
2350 RESTORE 3380:FOR s1=1 TO 5:REA DNW 
D dai$,da$:1F MID$(ec$(s),2,1)=dai$ 

















THEN s1=5:LOCATE 54,h:PRINT da$ 

2360 NEXT LC 
2370 RESTORE 3390:FO0R s1=1 TO 3:REA DNB 
D daif$,da$:1F MID$(ec$(s),3,1)=da1$ 
THEN s1=3:LOCATE 68,h:PRINT da$ 

2380 NEXT LE 
2390 NEXT >LF 
2400 PRINT CHR$(7);:LOCATE 31,25:PR HX 
INT*Une touche S.V.P.":CALL &BB06:G 

OTO 220 


2410 LOCATE 3,6:PRINT"No DATE  DEU 
TENPERATURE CIEL 
TEMPS VENT° 


2420 ORIGIN 4,328:DRAN 634,0:DRAU 6 DFI 
34,-272:DRAN 0,-272:DRAU 0,0:0RIGIN 
4,296:DRAU 634,0:0RIGIN 48,328:DRA 

VR 0,-272:PLOTR 100,0:DRAUR 0,272:P 
LOTR 112,0:DRAVR 0,-272:PLOTR 152,0 
:DRAUR 0,272:PLOTR 112,0:DRAUR 0, -2 

72 


2430 RETURN FC 
2440 TC 
2450 * CHARGEMENT >) 
2460 ? )YE 


2470 CLS:0RIGIN 210,386:DRAW 202,0, >ZJ 
O:DRAW 202,-22:DRAV 0,-22:DRAU 0,0: 
LOCATE 28,2:PRINT CHR$(24);" CHARGE 
MENT DES DONNEES ";CHR$ (24) 

2480 LOCATE 2,6:PRINT"Entrez l’Anne >YX 
e (AAAA): ":;CHRS(18);: INPUT f$:1F L 
EN(f$)>4 THEN 2590 

2490 CLS:LOCATE 19,11:PRINT" C H A PJ 
RGEMHENT EN COURS" 

2500 OPENIN f$+".HET" >PU 


2510 INPUT#9,n:FO0R s=1 TO n >vy 
2520 INPUT#9,dat$(s),tj(s),ec$(s),d >HC 
(s):NEXT 


2530 CLOSEIN >HA 
2540 nn=n:G0T0 220 >HZ 
- 2550 ! DYE 
2560 ? SAUVEGARDE DYF 
2570 ? )YG 


2580 CLS:0RIGIN 210,386:DRAW 202,0, >Z4 
O:DRAW 202,-22:DRAU 0,-22:DRAW 0,0: 
LOCATE 28,2:PRINT CHR$(24);" SAUVEG 
ARDE DES DONNEES ":CHR$ (24) 

2590 LOCATE 2,6:PRINT"Entrez l’Anne >YZ 
e (AAAA): ":CHR#(18); : INPUT f$:1F L 
EN(f$)>4 THEN 2590 

2600 CLS:LOCATE 19,11:PRINT" S A U RH 
VEGARDE EN COURS" 
2610 IF f$="" THEN 220 ELSE OPENOUT >KH 


PNA 


à f19+".MET" 











2620 VRITE#9,n:FOR s=1 TO n NT 
2630 WRITE89, dat$(s),tj(s),ec$(s),d >HZ 
(s):NEXT 


2640 CLOSEOUT )2C 
2650 nn=n:G0T0 220 >HB 
2660 ? >YG 
2670 *DESSINS >YH 
2680 ? DA 
2690 "NUAGE )K 


2700 ORIGIN x,192:DRAV 4,0,c6:DRAUR DLT 
4,-2:DRAUR 4,-2:DRAUR 12, -2:DRAUR 
10,2:DRAWR 4,0:DRAVR 12,6:DRAUR 10, 
4:DRAUR 10,2:DRAWR 6,-4:DRAUR 10, -1 

0 | 

2710 DRAUR 6,-4:DRAUR 6,-4:DRAVR 4, DKC 
-6:DRAUR 2,-10:DRAUR -4,-4:DRAUR -6 
572:DRAUR -4,0:DRAVR -4,-4:DRAUR -6 
72:DRAUR -4,0:DRAUR -6,-4:DRAUR -4 
,2:DRAUR -2,2:DRAUR -6,0 

2720 DRAUR -6,2:DRAUR -4,2:DRAUR -4 FR 
0: DRAUR -4,4:DRAUR -2,6:DRAUR -6, - 
2:DRAUR -6,-2:DRAUR -4,-2:DRAUR -6, 
-2:DRAUR -6,0:DRAVR -6,2:DRAUR -4,2 


“:DRAVR -4,4:DRAUR -4,6:DRAUR -4,6 


2730 DRAVR 2,6:DRAUR 2,4:DRAUR 2,4: DLL 
DRAUR 2,2 

2740 ORIGIN x+10,160:FILL c6 JuY 
2750 IF cvi=1 AND s=1 THEN cvi=0:G0 )JJ 
SUB 3200 

2760 RETURN >FJ 
2770 "SOLEIL NY] 
2780 DEG:0RIGIN 564,174:FOR i=1 TO DJP 
360 STEP 6:PLOT 204SIN(i),20#C0S(i) 

» 3:NEXT :RAD 

2790 ORIGIN 566,172:FILL 3 JUR 
2800 DEG:FOR 1=1 TO 360 STEP 30:0RI DHY 
GIN 564,174:DRAU 262SIN(i),26#C05(i 

) :NEXT: RAD 

2810 RETURN DFE 
2820 "PLUIE )YE 
2830 cc=13:x1=0:y1=0:FOR 1=1 TO 9:x DAG 
1=x1+14:FO0R i1=156 TO 72 STEP -14:c 
c=ccti:1F cc=16 THEN cc=14 

2840 yi=(RND#-18)+1:0RIGIN x+x1,i1+ DJL 
y1:DRAU -8, -6,cc:NEXT:NEXT 

2850 RETURN >FJ 
2860 "HORIZON Del 
2870 ORIGIN 32,46:DRAV 574,0,c4:DRA DMA 
V 574,-30:DRAV 0,-30:DRAV 0,0:0R1GI 


N 36,44:FILL c4 
2880 RETURN GB 
2890 ’ARBRE(ETE-PRINTEMPS) >ZB 


2900 PENS2,c1:LOCATE#2,3,8:PRINTS#2, >YC 
CHR$ (240) :LOCATE#2, 3,9:PRINT#2, CHRS 
(241) :PEN82, 0:LOCATER2, 3, 10:PRINT#2 


Ÿ ,CHRS (242) :PENS2, ci :LOCATER2,5,8:PR 


INT#2, CHR$ (240) :LOCATE#2,5,9:PRINT# 
2,CHR$ (241) :PEN#2,0:LOCATEZ2, 5, 10:P 
RINT#2,CHR$ (242) 

2910 PEN#2,c2:LOCATE#2, 10,9:PRINT#2 >DA 
,41$:PEN#2, 12:LOCATE#2, 10, 10:PRINT# 
2,d2$ 

2920 PEN#2, 1 :RETURN >PL 
2930 *FUXEE )YG 
2940 IF d(n1)=6 OR d(ni)=11 OR d(ni >HZ 
)=16 OR d(n1)=21 THEN c5=0 ELSE c5= 

1 

2950 ORIGIN 370,82:DRAY -10,6,c5:RE DHK 
TURN 

2960 "NEIGE DK 
2970 cc=13:x1=0:y1=0:FOR 1=1 TO 8:x >BG 
1=x1+14:FOR i1=156 TO 58 STEP -14:c 
c=ccti:IF cc=16 THEN cc=14 

2980 y1=(RND#-12)+1:0RIGIN x-16+x1+ >BG 
CCRND46)+1),i1+y1:PLOT 0,0,cc:NEXT: 
NEXT 

2990 RETURN >GD 
3000 ’ORAGE XF 
3010 x1=24:FO0R i=1 TO 2:x1=x1+32:0R DEE 
IGIN xtxi,178:DRAUR -22, -24,1:DRAUR 
30,16:DRAUR -18,-24:NEXT 


3020 x=450:G0SUB 2820 >PJ 
3030 RETURN EK 
3040 ? ARBRE (HIVER-AUTOMNE ) DXK 
3050 PEN#2, c1:LOCATES2,3,8:PRINT#2, DYE 
CHRS (247) :LOCATE#2, 3,9:PRINT#2, CHR$ 
(248) :PEN#2,0:LOCATER2, 3, 10:PRINT#2 

, CHR$ (242) :PEN#2, ci :LOCATEZ2,5,8:PR 
INT#2,CHR$ (247) :LOCATE#2,5,9:PRINT# 

2, CHR$ (248) :PENI2,0:LOCATE#2,5, 10:P 
RINT#2,CHR$ (242) 

3060 RETURN FC 
3070 THERNO JC 


3080 ORIGIN 76,294:DRAUR 0,h1,9:PLO DXN 
TR 6,0:DRAVR 0,-hi 

3090 RETURN DFF 
3100 "VENT »XG 
3110 ORIGIN 596, 272:DRAUR 0,64,0:DR )JB 
AR -96,-8:PLOTR 0,-4:DRAUR 96, -8:P 
LOTR -20,2:DRAVR 0,16:PLOTR -20, -2: 
DRAUR 0,-12:PLOTR -20,2:DRAUR 0,8:P 
LOTR -20,-2:DRAUR 0,-4:PLOTR -20, 2 
3120 ORIGIN 592,328:FILL 9:0RIGIN 5 >KJ 
72,328:FILL 1:0RIGIN 552, 328:FILL 9 
:0RIGIN 532,328:FILL 1:0RIGIN 512,3 
28:FILL 9 

3130 RETURN )FA 
3140 ORIGIN 596,272:DRAUR 0,64,0:DR DHJ 
ANR -16,-8:DRAUR -40, -40:DRAUR 0, -6 
:DRAUR 40,22:DRAUR 16,10:PLOTR -10, 
-5:DRAUR -4,18:PLOTR -12,-8:DRAUR 4 
,-18:PLOTR -12,-8:DRANR -4, 10:PLOTR 











-12,-8:DRAUR 2,-10 
3150 ORIGIN 592,314:FILL 9:0RIGIN 5 DKT 
78,312:FILL 1:0RIGIN 566,300:FILL 9 
:0RIGIN 554,296:FILL 1:0RIGIN 544,2 
86:FILL 9 
3160 RETURN >FD 
3170 ORIGIN 596,272:DRAUR 0,64,0:DR dAK 
AVR -20,-8:DRAUR -8,-50:DRAWR 10,0: 
DRAUR 10,36:DRAVR 10,0:PLOTR -10,0: 
DRAWR -8,18:PLOTR -6,-16:DRAWR 12, - 
12:PLOTR -6,-10:DRAUR -8,8:PLOTR -6 
,712:DRAUR 10, -4 
3180 ORIGIN 594,318:FILL 9:0RIGIN 5 >KH 
84,312:FILL 1:0RIGIN 582,308:FILL 9 
:0RIGIN 582,292:FILL 1:0RIGIN 578,2 
84:FILL 9 
3190 RETURN >FG 
3200 COUVERT )XH 
3210 ORIGIN 32,206:DRAU 574,0,0:DRA >LH 
W 574,-38:DRAY 0,-38:DRAV 0,0:0RIGI 
N 36,204:FILL 0 
3220 RETURN >FA 
3230 ‘FLEURS >YA 
3240 x1=0:y1=0:FOR 5=1 TO 34:x1=(RN >NX 
D#30)+1:y1=(RND#22)+1:0RIGIN 96+x1, 
68+y1:PLOTR 0,0,10:NEXT:FOR 5=1 TO 
34:x1=(RND#30)+1:y1=(RND#22)+1:0RIG 
IN 160+x1,68+y1:PLOTR 0,0, 10:NEXT 
3250 RETURN >FD 
3260 * FEUILLES »ND 
3270 x1=0:y1=0:FOR s=1 TO 14:x1=CRN DRT 
D#36)+1:y1=(RND#10)+1:0RIGIN 92+x1, 
38+y1:PLOTR 0,0,9:x1=(RND#36)+1:y1= 
CRND#10)+1:0RIGIN 156+x1,38+y1 :PLOT 


R 0,0,9:NEXT 
3280 RETURN >FG 
3290 VOILE )YG 


3300 ORIGIN x,192:DRAV 4,0,cB:DRAUR MB 
4,-2:DRAUR 4,-2:DRAUR 12, -2:DRAUR 
10,2:DRAUR 4,0:DRAUR 12,6:DRAUR 10, 
A:DRAUR 10,2:DRAMR 6,-4:DRAUR 10, -1 

O:DRAUR 8,-4:DRAUR 6,-4:DRAUR -4,0: 
DRAUR -4,-4 

3310 DRAUR -90,0:DRAUR -6,4:DRAUR - CU 
4,4:DRAUR 4,4:DRAUR 6,4 

3320 ORIGIN x+6,166:FILL 13:RETURN 
3330 "BROUILLARD 


>CH 
)B 


À 








3370 DATA 1, SOLEIL, 2, ECLAIRCIES, 3,C >KU 
OUVERT, 4, "DEMI -VOILE",5, "BROUILLARD 
EPAIS" 

3380 DATA 1,PLUVIEUX, 2,NEIGEUX, 3,0R )EV 

AGEUX, 4, SEC, 5, HUMIDE 

3390 DATA 1,CALME,2,FORT,3, VIOLENT )DH 
3400 DATA 1,JANVIER, 2, FEVRIER, 3,HAR >PH 
S,4,AVRIL,5,HA1,6, JUIN, 7, JUILLET, 8, 
AOÛT, 9, SEPTEMBRE, 10, OCTOBRE, 11,NOVE 
MBRE, 12, DECEMBRE 

3410 ? COULEURS >YA 
3420 IF d(n1)=27 THEN pr=27:n10=n:n )FV 
=n1:GO0SUB 990:n=n10:n10=0 

3430 IF (d(n1)>0 AND d(n1)€6) OR (Cd >JF 
(n1)>6 AND d(ni)€11) OR d(n1)=12 TH 

EN c1=5:c2=7:c4=5 

3440 IF d(n1)€5 OR d(ni)=8 OR d(ni) >WD 
=9 THEN c6=2 ELSE c6-0 

3450 IF (d(n1)»}12 AND d(n1)(16) OR DNB 
(d(n1)>16 AND d(ni)(21) OR d(n1)=22 
THEN ci=5:c2=7:c4=5 

3460 IF (d(n1)<13 OR d(n1)=23 OR d( DNZ 
ni)=24 OR d(ni)=25) THEN c3-6:c1=5: 
c2=7:c4=5 ELSE c3-2:c1=5:c2=7:c4=5 

3470 IF d(n1)=6 OR d(ni)=11 OR d(ni >NA 
)=16 OR d(n1)=21 THEN ci=1:c2=1:c4= 

1 

3480 IF d(n1)=23 OR d(n1)=24 OR d(n >QE 
1)=25 THEN c8-=13 


3490 IF d(n1)=26 THEN c3=2 >TA 
3500 IF pr=27 THEN ci=1:c2=1:c4=1  >ZV 
3510 GOTO 3630 JHJ 
3520 ? COULEUR )YC 


3530 IF d(ni)=27 THEN pr=27:n10=n:n )FX 
=n1:G0SUB 990:n=n10:n10=0 

3540 IF (Cd(ni)>0 AND d(ni)(6) OR Cd >JK 
(n1)>6 AND d(ni)<11) OR d(ni)=12 TH 

EN ci=7:c2=7:c4=5 

3550 IF d(n1)€5 OR d(n1)=8 OR dni) >WF 
=9 THEN c6=2 ELSE c6=0 

3560 IF (d(n1)>12 AND d(n1)<16) OR NF 
(d(n1)>16 AND d(n1)<21) OR d(ni)=22 
THEN c1=7:c2=7:c4=5 

3570 IF (d(ni)(13 OR d(ni)=23 OR d( DNF 
n1)=24 OR d(ni)=25) THEN c3=6:c1=7: 
c2=7:c4=5 ELSE c3=2:c1=7:c2=7:c4=5 

3580 IF d(n1)=6 OR dni)=11 OR d(ni >NC 
)=16 OR d(n1)=21 THEN c1=1:c2=1:c4= 

1 

3590 IF d(n1)=23 OR d(n1)=24 OR d(n >QG 


3340 y=208:FOR s=1 TO 18:y=y-CCRND# DPK | 1)=25 THEN c8=13 

14)+1):x=-22:FOR s1=1 TO B:x=x+(58+ 3600 IF d(ni)=26 THEN c3=2 )TT 

CRND#20)+1):0RIGIN x,y:DRAY 50,2,13 3610 IF pr=27 THEN ci=1:c2=1:c4=1  )2X 

:NEXT:NEXT 3620 GOTO 3630 >NA 

3350 RETURN DFE | 3630 *VISUALISATION )YE 
à 3360 "DaTas DYE Ÿ 3640 SPEED INK 5,5 DLY 





3650 WINDOW#3,2,19,3,8:PAPER33,13:P >ZA 
EN#3,1:CLS#3:0RIGIN 30,368:DRAU 580 
,0,0:DRAW 580,-9B:DRAW 0,-98:DRAW 0 

0 

’ 
3660 PAPER#2, c3:CLS#2:PENS3,0:GRAPH >HQ 
ICS PAPER 13:TAG#3:0RIGIN 36,364:PL 

OT 0,0,0:PRINTS3, 50$(14) ; :0RIGIN 49 
6,364:PLOT 0,0,0:PRINT#3, 508$ (15) ; :T 
AGOFF#3 

3670 LOCATE#3, 15,4:PRINT#3, ven$:PEN DFI 
#3, 1:LOCATES3, 2, 3:PRINT#3, CHR$ (249) 
:LOCATES3,2,4:PRINT#3, CHR$ (251) : LOC 
ATE#3,2,5:PRINT#3, CHR$ (250) 

3680 ORIGIN 218,272:DRAVR 0,96:PLOT DYL 
R 230,0:DRAUR 0, -96 

3690 GRAPHICS PAPER 13:PEN#3,0:TAG# >AW 
3:0RIGIN 256,358:PLOT 0,0,0:PRINT3 


NEXT:x=450:GOSUB 2820 
3840 IF d(n1)=6 THEN GOSUB 2770:x=- DYR 
80:FOR s=1 TO 4:x=1+140:G0SUB 2690: 
NEXT:1=480:GOSUB 2960 
3850 IF d(n1)=7 THEN GOSUB 2770:x=- 3NR 
80:FO0R s=1 TO 4:x=x+140:GOSUB 2690: 
NEXT:GOSUB 3000 
3860 IF d(n1)=8 OR d(ni)=9 THEN G0S >ME 
UB 2770:x=-80:FOR 5=1 TO 4:x=x+140: 
GOSUB 2690:NEXT 
3870 IF d(ni)=10 THEN GOSUB 2770:x= >2Q 
-80:FOR s=1 TO 4:x=x+140:GOSUB 2690 
:NEXT:x=450:GO0SUB 2820 
3880 IF d(ni)=11 THEN GOSUB 2770:x= )ZB 
, "TEMPS"; : TAGOFF#3:LOCATE#3,8,3:PRI -80:FOR 5=1 TO 4:x=x+140:G0SUB 2690 
NT#3, ciel$:LOCATE#3,6, 4:PRINT#3, ten :NEXT:x=480:GOSUB 2960 
$ 3890 IF d(n1)=12 THEN GOSUB 2770:x= )PV 
3700 IF tj(n1)(=0 THEN h=5:PEN#3,9 3JJ | -80:FO0R s=1 TO 4:x=x+140:G0SUB 2690 
ELSE IF (tj(n1)20 AND tj(n1)€15) TH :NEXT:GOSUB 3000 
EN h=4:PEN#3,1 ELSE h=3:PEN#3,5 3900 IF d(ni)=13 OR d(ni)=14 OR d(n >ZA 
3710 LOCATE#3,3,h:PRINT#3,USING"#8# RU | 12:18 OR d(ni)=19 THEN cvi=1:x=-60: 
" stj(nt):h=0 FOR s=1 TO 5:x=1+110:G0SUB 2690:NEX 
3720 IF tj(ni)<-4 THEN h1=8 ELSE IF DWM | T:x=0 
(tj(n1)>-3 AND tj(ni)<=0) THEN hi: 3910 IF d(n1)=15 OR d(ni)=20 THEN c )GP 
10 ELSE IF tj(n1)>24 THEN h1=34 EL vi=1:x=-60:FOR s=1 TO 5:x=2+110:G0S 
SE h1=10+INT(tj(n1)) UB 2690:x=1-10:GOSUB 2820:1=x+10:NE 
3730 GOSUB 3080 >XG | IT:x=0 
3740 GRAPHICS PAPER 11:TAG:FOR s=1 )QA | 3920 IF d(ni)=16 THEN cvi=1:x=-60:F >PW 
TO LEN(sai$):0RIGIN (s#64+15)-(LEN( OR s=1 TO 5:x=1+110:G0SUB 2690:GO0SU 
sai$)#32/2),248:PLOT 0,0,c7:PRINT H B 2960 :NEXT : x=0 
1D$(sais,s,1)+" "::NEXT:TAGOFF :GRAP 3930 IF d(n1)=17 THEN cvi=1:x=-60:F >HP 
HICS PEN 0,0 OR 5=1 TO 5:x=1+110:G0SUB 2690:NEXT 
3750 GOSUB 2860:1F sai$="ETE" OR sa >XF | :GOSUB 3000 
i$="PRINTEMPS" THEN GOSUB 2890 ELSE 3940 IF d(ni)=21 THEN cvi=1:x=-60:F >PU 
GOSUB 3040:G0SUB 2910 OR s=1 TO 5:x=x+110:GO0SUB 2690:G0SU 
3760 IF gai$="PRINTEMPS" THEN GOSUB DHA | B 2960:NEXT:x=0 
3230 3950 IF d(ni)=22 THEN cvi={:x=-60:F >PA 
3770 IF c4=1 THEN 3780 ELSE IF sai$ DDN | OR s=1 TO 5:x=x+110:G0SUB 2690:NEXT 
=*AUTONNE" THEN GOSUB 3260 :GOSUB 3000: x=0 
3760 IF RIGHT$(ec$#(ni),1)="1" THEN DRX | 3960 IF d(ni):23 OR d(ni)=24 OR d(n )AL 
GOSUB 3170 ELSE IF RIGHT$(ec$(n1),1 1)=25 THEN GOSUB 2770:x=0:FOR 5=1 T 
)="2* THEN GOSUB 3140 ELSE GOSUB 31 0 3:x=x+160:G0SUB 3300:NEXT:1F LEFT 
00 $(ec$(n1),2)="43" THEN GOSUB 3000 
3790 IF tj(ni){17 THEN GOSUB 2930  >ZK | 3970 PEN 1,1:LOCATE 1,25:PRINT CHR$ >GH 
3800 1F d(n1)=26 THEN GOSUB 3330:G0 DHW | (18):PEN 1,0:INK 0,0:INK 1,26: INK 2 


TO 3970 s1:INK 3,24: INK 4,0:INK 5,9: INK 6,1 
3810 1F dn1)=1 OR d(ni)=2 THEN G0S DGH | 1:INK 7,3:INK 6,23:INK 9,6:INK 10,1 
UB 2770 6:1INK 11,15:INK 12,20: INK 13,13:0RI 


3820 IF d(n1)=3 OR d(ni)=4 THEN G0S >HP 
UB 2770:x=-80:FOR s=1 TO 4:1=x+140: 
GOSUB 2690:NEXT 

3830 IF d(n1)=5 THEN GOSUB 2770:x=- >YF 
80:F0R s=1 TO 4:x=1+140:GOSUB 2690: 


GIN 32,16:DRAY 572,0,0 
3980 IF c3=2 THEN cci=1 ELSE cci=11 >AG 
3990 1F HID$(ec$(n1),2,1)="1" OR HI >0G 
D$ec$(n1),2,1)="3" THEN cc3=0 ELSE 

IF HID$(ec$(ni),2,1)="2" THEN cc3= 


PNA 








à © 


4000 INK 14,cc1,cc3:INK 15,cc3,cci AK 
4010 IF HID$(ec$(n1),1,1)€>"5" THEN >LH 
GOSUB 2910 

4020 IF pr=27 THEN d(ni)=27:pr=0  )ZC 
4030 CALL &BBO6:SPEED INK 10,10:G0T DFT 
0 220 

4040  TABLEAU >YA 
4050 GRAPHICS PAPER 1:0RIGIN 25,344 >ZP 
:TAG:PLOT 0,0,0:PRINT"M O0 1 S";:PLO 

TR 24,8:PRINT"TEMPER. "; :PLOTR -56, - 


;_ 16:PRINT"HOYENNE" ; :PLOTR 32,8:PRINT 


"ETAT CIEL"; 

4060 PLOTR 32,0:PRINT"ETAT TEMPS" ;: >LN 

PLOTR 28,0:PRINT"VENT"; :PLOTR 44,8: 

PRINT"NOMBRE DE JOURS"; :PLOTR -136, 
-16:PRINT"SOLEIL PLUIE NEIGE"; :TA 

GOFF 

4070 ORIGIN 8,360:DRAU 626,0:DRAW 6 DWV 

26,-2B8:DRAW 0,-288:DRAV 0,0:0RIGIN 
8,312:DRAV 626,0:0RIGIN 8, 104:DRAV 
626,0:0RIGIN 8,72:DRAU 626,0 

4080 ORIGIN 96,72:DRAW 0,288:0RIGIN UH 
168,72:DRAN 0,288:0RIGIN 288, 72:DR 

AN 0,288:0RIGIN 384, 72:DRAV 0,288:0 

RIGIN 456,72:DRAN 0,2B8:0RIGIN 520, 
72:DRAW 0,264:0RIGIN 576,72:DRAN 0, 

276 


4090 LOCATE 3,20:PRINT"ANNEE" JR 
| 4100 RETURN )EJ 
4110 ? XJ 
4120 * TRAITEMENT ERREURS JXK 
4130 >YA 


4140 IF ERL=2500 THEN CLS:LOCATE 28 >WD 
,11:PRINT"...FICHIER INEXISTANT..." 
:FOR t=1 TO 1500:NEXT:RESUME 2470 

4150 IF ERR=11 THEN RESUME NEXT >ZZ 
4160 IF (ERR-13 AND ERL-520) OR (ER DQJ 
R=13 AND ERL=1460) THEN RESUME NEXT 
M170 CLS:PRINT"Erreur No ";ERR;° LI »YR 
——— DYF 
4190 CLS:IF nn(n THEN LOCATE 10,11: >GH 
PRINT"...ATTENTION VOUS AVEZ EFFECT 

UE DE NOUVEAU ENREGISTREMENTS. . .":L 
OCATE 25,13:PRINT"VOULEZ-VOUS LES S 
AUVEGARDER 0/N":G0T0 4200 ELSE 4220 
4200 a$=INKEYS:1F a$="" THEN 4200  DYF 
4210 IF UPPER$(a$)="0" THEN 220 ELS )FX 
E 4250 

4220 CLS:LOCATE 25,11:PRINT"CONFIRA )CL 
ATION QUITTER O/N° 

4230 a$=INKEYS:1F a$="" THEN 4230  >2D 
4240 IF UPPER$(a$)="0" THEN 4250 EL )FY 
SE 220 


4250 CALL 0 )NGA 





D>10 ? >LA 
20 GOSUB 190: pr{sentation )JD 
30 ? >LC 
40 GOSUB 580:'initialisations )JJ 
50 ? )LE 
60 GOSUB 1140:’d{placesents )0F 
T0! >LG 
80 GOSUB 1360:’collision bord >RB 
80 ? >LJ 
100 GOSUB 1430:’cannibalisne > 
110 ? >RC 
120 GOSUB 1520:’rencontre nombre  )XF 
130 ? RE 
140 ? >RF 
150 REMBNSSHNHENNNSNNNENNE >RA 
160 REM### prisentation ##4 DMC 
170 REMRNY#H#NNNHHNNNHNRRNES >RC 
180 ? >RK 
190 MODE 1 >HJ 


200 INK 0,9:BORDER 9:1NK 1,16:INK 3 DUE 
»14:PAPER O:PEN 1 

210 a$=CHR$(22)+CHR$(1)+CHR$(208)+C >PK 
HR$ (8) +CHR$ (222) +CHRS (22) +CHRS (0) 

220 b$=CHR#(22)+CHR$(1)+CHR$(213)+C DPJ 
HR$ (8) +CHR$ (223) +CHR$ (22) +CHRS (0) 


230 c=0 >HK 
240 FOR 1=1 TO 8 >VA 
250 PRINT" *; >RA 
260 FOR j=1 TO 36 >)X 


270 READ a:1F a=6 THEN PRINT a$; EL >FH 
SE IF a=3 THEN PRINT bt; ELSE PRINT 


CHR$(203+a) ; 

280 NEIT EF 
290 PRINT >PD 
300 NEXT )DJ 


310 LOCATE 23,9:PRINT CHR$(22)+CHR$ UF 
(1)+CHR$ (213) +CHR$ (215) +CHR$ (8) +CHR 
$(221)+CHR$ (223) +CHR$ (22) +CHR$ (0) 

320 c=ct1:LOCATE 1,16:1F c=1 THEN 2 2CK 
40 

330 IWK 2,25,6:PEN 2:LOCATE 6,12:PR DUR 
INT"a## APPUIE SUR UNE TOUCHE #44" 

340 CLEAR INPUT:CALL &BB06 VU 
350 DATA -171,1,5,5,5,2,-171,1,5,5, DH 








CROQUE 


Henri CHAUVET 


Ce jeu est destiné aux élèves du 
niveau du cours préparatoire. 
Il s’agit de croquer des nombres 
de 2 chiffres suivant un ordre 
croissant de grandeur. En cas 
d'erreur, le programme se 
charge de tout rectifier. Je ne 
pense pas que les champions du 
jeu d'arcade seront comblés. 


En revanche, pour un enfant de 
6 ans obligé de contrôler les 
déplacements de sa petite bête 
tout en recherchant la victime 
suivante des yeux, le 
plaisir est assuré. 


O 


5,2,-171,1,5,5,5,2,-171,1,5,5,5, 2,1 
,6,-171,-171,1,6,1,5,5,5,5,6 

360 DATA 11,-60,-60,-60,12,19,11,-6 >Z8 
0,-60, -60,12,19,11,-60, -60,-60,12, 1 
9,11,-60, -60, -60, 12,19,-60,4, -171, - 
171, -60, 4, -60, -60, -60, -60, -60, 17 

370 DATA -60,4,-171,-171,-60,17,-60 DQR 
,4,-171,-171,-60,4,-60,4,-171,-171, 
-60,4,-60,4,-171,-171,-60,4, -60,4, - 
171,-171,-60,4,-60,4,-171,-171,-171 
"17 

380 DATA -60,4,-171,-171,-171,-171, 
-60,4,-171,-171,-60,17,-60,4, -171, - 
171,-60,4,-60,4,-171, -171, -60, 4, -60 
,4,-171,-171,-60,4,-60,17,5,6,-171, 
-171 

390 DATA -60,4,-171,-171,-171,-171, 
-60,-60, -60,-60,9,2,-60,4,-171,-171 
,-60,4,-60,4,-171,-171,-60,4, -60,4, 
-171,-171,-60,4,-60, -60, -60,17,-171 
17 

400 DATA -60,4,-171,-171,1,6,-60,4, 
-171,10,12,19,-60,4,-171, -171, -60,4 
,-60,4,-171,-171,-60,4,-60, 4, -171, - 
171,-60,4,-60,4,-171,-171,-171,-171 


À 


V 


N 


V 


QP 





520 RETURN 





410 DATA -60,4,5,5, -60,17, -60,4, -17 DJP 
1,-171,-60,4,-60,17,5,5, -60,17, -60, 
17,5,5, -60,17, -60,17,5,5, -60, 17, -60 
,17,5,5,5,6 

420 DATA 10, -60,-60, -60,9,-171,-60, 
17,-171,-171,-60, 17,10, -60, -60, -60, 
9,-171,10,-60, -60, -60,9, -171,10, -60 
,-60, -60,9, -171, -60, -60, -60, -60, -60 
17 

4390 REN 

440 DATA 1,6,-171,-171,1,6,-171,1,5 DHH 
,5,5,2,1,6,-171,-171,1,6,-171,1,5,5 
,5,2,-171,1,5,5,5,2,1,5,5,5,5,6 

450 DATA -60,17,2,-171,-60,4,11,-60 DHD 
,-60,-60,12,19,-60,17,2,1,-60,4,11, 
-60,-60,-60,12,19,11, -60, -60, -60, 12 
,19, -60, -60, -60, -60, -60, 17 

460 DATA -60,12,-171,2,-60,4, -60,4, 
-171,-171,-60,4, -60,12, -171, -171, -6 
0,4,-60,4,-171,10,-60,4,-60,4, -171, 
-171,-60,4,-60,4,-171,-171,-171,-17 
1 

470 DATA -60,-60,12, -171,-60,4, -60, 
4,-171,-171,-60,4, -60, -60, 12, 11, -60 
,4,-60,4,-171,-171,-60,17, -60,4,-17 
1,-171,-60,17,-60,17,5,6, -171,-171 
480 DATA -60,3,-60,12, -60,4,-60,4,- DTA 
171,-171,-60,4, -60,3, -60, -60, -60,4, 
-60,-60, -60, -60,9, 2, -60, -60, -60, -60 
19,2, -60, -60, -60,17,-171,-171 

490 DATA-60, 4,10, -60,-60,4,-60,4, -1 DHG 
71,-171,-60,4,-60,4,10,9,-60, 4, -60, 
4,-171,10, 12,19, -60, 4, -171, 10, 12,19 
,-60,4,-171,-171,-171,-171 

500 DATA -60,4,-171,10,-60,4, -60,4, 
5,5,-60,17,-60,4,-171,-171,-60,4,-6 
0,17,5,5,-60,4,-60,4,-171,-171,-60, 
4,-60,17,5,5,5,6 

510 DATA -60,17,-171,-171,-60,17,10 DIE 
,-60,-60, -60,9,-171, -60,17,-171,-17 
1,-60,17, -60, -60, -60, -60, -60,17, -60 
,17,-171,-171, -60, 17, -60, -60, -60, -6 
0,-60,17 


LV 


)2C 


530 » 

540 REMXHHHNNENRNNERRRNERNEERER 
550 REM### initialisations ### 
560 RENNHRSENENNNENNNEEHNNENE JUL 
570 ? >TC 
580 KEY 138," speed key 30,2"+CHR$(1 >GZ 


590 SPEED KEY 5,2 >LK 
600 ENV 1,15,-1,4 >DD 
610 MODE i HF 
620 1F PEEK(LAO00)=0 THEN 680 DVU 


630 PEN 1:LOCATE 6,10:PRINT"Je suis )TD 
une gentille chenille." 

640 LOCATE 12,12:PRINT"Aide-soi @ c >HD 
roquer":PRINT®" les nombres qui s 
eront @ l’{cran” 

650 LOCATE 11,16:PRINT"Mais je t’en >HP 
-supplie,*:PEN 3:LOCATE 12,18:PRINT 
*,..DANS L'ORDRE..." 

660 PEN 2:LOCATE 6,25:PRINT"### APP DNT 
UIE SUR UNE TOUCHE ###®:CLEAR INPUT 
:CALL &BB06 


670 CLS >UH 
680 INK 2,23 WF 
690 DEFINT a-z >) 
700 DIN nh(101),yh(26) PJ 
710 SYNBOL AFTER 64 NL 


720 SYHBOL 64,48,24,120,12,124,204, )DF 
118 

730 SYXBOL 123,12,24,60,102,126,96, >CU 
60 

740 SYNBOL 248,124,230,255,31,15,15 2KL 

9,254,124 

750 SYMBOL 249,124,230,255,255,31,2 DLJ 
55,254,124 

760 STMBOL 250,62, 103,255,248,240,2 DKQ 
48,127,62 

770 SYMBOL 251,62, 103,255,255,248,2 DKX 

55,127,62 

760 SYMBOL 252,98,227,227,183,191,2 DKJ 
55,126, 60 

790 SYMBOL 253,118,247,247,191,191, DLZ 
255, 126,60 

800 SYMBOL 254,60,126,255,253,237,1 DKJ 
89,199, 70 

810 STMBOL 255,60, 126,255,253,253,2 LK 
39,239, 110 

820 q-9:”nosbre de nots @ classer  )YD 
830 xaax=-30:xplus:4: les valeurs 38 20H 
et 2 cospliquent le jeu en collant 
parfois les nosbres aux bords droi 

t ou gauche 

840 INK 3,10 )VA 
850 WINDOW#1,1,40,1,2:WINDOW#2, 1,40 DQF 
3,23: VINDOWS3, 1,40,24,25:PAPER#1,3 
:PAPER#2, 0:PAPERS3, 3:PEN#1, 0: BORDER 














10:CL5#1:CL582:CL583 

860 PEN32,1 >TF 
870 FOR i=1 TO 40:LOCATER?, i,1:PRIN >XG 
T#2,CHR# (207) ; :LOCATER2, i,21:PRINTS 
2,CHR$ (207) ; :NEXT 

880 FOR i=2 TO 20:L0CATE82,1,i:PRIN >XH 
T#2, CHR$ (207) ; :LOCATE#2, 40, 1 :PRINTS 
2,CHR$ (207) ; :NEXT 


890 PEN#2,2 >TK 
900 FOR i=1 TO 10 >CB 
910 x(i)=i+29:y(i)=2 >NG 


920 a$(1)=CHR$(231):a$(1)=CHR$(248) DUF 
+a$(10)=CHR$(32) :"LOCATES2, 15,2:PRI 
NT#2,a$(i); 

930 LOCATEZ2,x(i),y(i):PRINT#2,a$(i DEK 
) 

940 NEXT )EJ 
950 PENS2,1 >TF 
860 FOR i=10 TO 99:nh(i)=i:NEXT >2D 
970 FOR ii=3 TO 20:yh(ii)=ii:NEIT  )BQ 


980 FOR j=1 TO q >ZH 
990 b=j+RND#(101-j) NJ 
1000 IF nh(b)=0 THEN 990 >qn 
1010 bb=j+(26-j)#(RND#1) >RZ 
1020 IF yh(bb)=0 THEN 1010 >TU 


1030 xh=INT(RND#xmax) +xplus:LOCATES DFE 
2,xh, yh(bb) :PRINT#2,HID$(STR$ (nh(b) 


),2) 

1040 yh(bb)=yh(j):nh(b)=nh(j) >XH 
1050 NEXT >KH 
1060 PEN82,2 YJ 
1070 CLEAR INPUT )LL 
1080 RETURN >FC 
1090 ? >YC 
1100 REMAH#HNHENNENENNENUNE >TU 
1110 REN### d(placesents ##4 DL LA 
1120 RENFHHNNNHHNEENSHNNEHRNNEE >TU 
1130 ? >) 
1140 k$=INKEYS:1F k$="" AND x=0 AND DNA 
y=0 THEN 1140 


1150 IF k$=CHR$(243) THEN 1=1:y=0:a >HB 
(1)=250 

1160 IF k$=CHR$(242) THEN x=-1:y=0: JV 
a(1)=248 

1170 IF k$=CHR$(241) THEN x=0:y=1:a DHF 
(1)=254 

1180 IF k$=CHR$(240) THEN x1=0:y=-1: >JQ 
a(1)=252 

1190 IF k$="a" THEN END 06 
1200 z=(z+1) MOD 2 LV 
1210 IF x(1)+x=1 OR x(1)+x=40 OR yC DHL 
1)+y=1 OR y(1)+y=21 THEN GOSUB 1360 
1220 LOCATEZ2, x(1)+x,y(1)+y:c$=COPY DEZ 


À 








CHR$(#2):1F c$O" * OR ch=1 THEN IF 
c$=CHR$(231) THEN GOSUB 1430 ELSE 
GOSUB 1520 


1230 FOR i=10 TO 1 STEP-1 >RJ 
1240 x(i)=x(i-1):y(i)=y(i-1) >UR 
1250 NEXT KK 
1260 x(1)=x(2)+x:y(1)=y(2)+y JuY 


1270 LOCATE#2, x(1),y(1):PRINT#2,CHR DHV 
$(a(1)+z) 

1280 LOCATE#2, x(2),y(2):PRINT#2,a$( )EA 
2) 

1290 LOCATEZ2,:(10),y(10):PRINT#2,a HF 
$(10) 


1300 GOTO 1140 >LH 
1310 ? >IH 
1320 REMASHNHRERHENNNENENENNNX XL 
1330 REM### collision bord ### XNA 
1340 REMEHHNENHHEEHRNNRNNNENNE UN 
1350 ? YB 
1360 SOUND 1,0,60,15,1,0,1 >TV 


1370 PEN #1,1:LOCATE# 1,10, 1:PRINT#1 DJB 
+ “Paf ! dans le bord !":1NK 2,19, 7: 
GOTO 2040 


1380 ? DE 
1390 REMH#HNNESRHERNEEENNEE >TF 
1400 REM### cannibalisse ##4 um 
1410 REMR#RHRENENERRERRNEEE )TY 
1420 ? >XX 


1430 LOCATE#2,x(1)+x,y(1)+y:PRINTE2 DUL 
CHR$(a(1)) :LOCATE#2, x(1),y(1) :PRIN 
T#2, CHR$ (231) :LOCATE#2, x(10),y(10): 
PRINT#2," * 

1440 INK 2,19,7 >QC 
1450 FOR au=100 TO 600 STEP 10:SOUN >XJ 
D 1,au,2,15:NEIT au 

1460 PEN#1,1:LOCATE #1,6,1:PRINT#1, DFN 
“Aaaaaahhh, je suis nort...":G0T0 2 
040 

1470 ? )YE 
1480 REMB#SHNEMHNHNNENNNENNSNENNES UV 
1490 REN### rencontre nombre ### >2T 
1500 REMMESNNEHHNHNNHUNENNENENNES )UM 


1510 ? )IK 
1520 ch=ch+i )BE 
1530 as=ASC(c$)-48 >HF 


1540 IF ch=1 THEN u=as:qq=qqt1:G0TO HW 
1660 

1550 LOCATES2, x(1)+x,y(1)+y:PRINTE2 DWP 
,CHR$(a(1)) :LOCATES2, x(1),y(1):PRIN 

T#2, CHR$ (231) :LOCATER2, x (10), y(10) : 

PRINT#2," * 

1560 IF as=-16 THEN 1570 ELSE 1590 D2J 
1570 FOR su=100 TO 600 STEP 10:SOUN >XNM 

D 1,au,2,15:NEXT au 

1580 PEN#1,1:LOCATE#1,5,1:PRINT#1," >HQ 

Je n'en ai sang que la moitit !";: 


INK 2,18,7:G0T0 2040 

1590 nosb=u:u=as >HP 
1600 IF x=1 THEN noab={0#noab ELSE KG 
as=10#as 

1610 nosb(qq)=nosbtas:nosb=0:as=0 DL 
1620 IF nomb(qq)<nonb(qg-1) THEN GO DVF 
SUB 1730:RETURN 

1630 ch=0 >DA 
1640 IF qq=q THEN 1650 ELSE 1670  )XB 
1650 PEN#1,1:LOCATES1,10,1:PRINTS#1, )BF 
“erci pour le repas...":G0SUB 1990 
1660 inkk=inkk+1:INK 2,ASC(MID$("GR >DR 
NOHZPHFG", inkk, 1))-64 

1670 RETURN >FH 
1680 )YH 
1690 REMAH#NWRNHNNENNNEENEENNEENEE DVD 


1700 REM### erreur dans l'ordre ### >TN 
1710 REMBS#N##HHNNNNNNRENEENNENENNEE )YU 
1720 ? )YC 
1730 PAPER 3:PEN#1, 1 DNU 
1740 LOCATES1,15,1:PRINT#1, "ERREUR. )GR 
L] 

1750 FOR au-100 TO 600 STEP 10:SOUN >XH 
D 1,au,2,15:NEXT au 

1760 pn=0:FO0R cli=1 TO 21:pn=pnt1:P >HQ 
EN pn NOD 2+1:SOUND 1,(pn MOD 4)#20 


HORS-SERIE 


Offre exceptionnelle 
DISC CPC HS 4 


À Pour l'achat de la disquette, nous 
joignons gratuitement 
la revue HS 14. 


cToNS 
E FON 
EUR D 


Revue HS 14 seule 


Prénom : 


Ville : 
Signature 





Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. Retournez le(s) 


de Pan - 35170 BRUZ. 





Q 140 F non abonné 
Q 110 F abonné 





,5:LOCATE 1,24:PRINT"Tu as" :LOCATE 
1,25:PRINT*r{pondu ";:NEXT:PEN 1 


1770 FOR at=1 TO 1000:NEXT JUP 
1780 PRINT" ‘; >DK 
1790 FOR i=1 TO qq >LH 
1800 PRINT nomb(i) ;CHR$ (8); >WD 
1810 NEXT i JF 
1820 FOR at=1 TO 3000:NEXT at HU 


1830 pn=0:FOR cli=1 T0 21:pn=pnti:P >VQ 
EN pn MOD 2+1:SOUND 1,(pn HOD 4)#20 
»5:LOCATE 1,24:PRINT"J'aurais":LOCA 
TE 1,25:PRINT"pr{f{r{ ";:NEXT:PEN 1 
1840 FOR at=1 TO 1000:NEXT >UH 
1850 FOR i=1 TO qq LE 
1860 IF nosb(i)>nomb(qq) AND flag=0 NB 


THEN PRINT" ";:flag=1:pl=1-1 
1870 PRINT nosb(i) ;CHR$ (8); JUL 
1880 NEXT i JC 


1890 FOR at=1 TO 2000:MEXT at DVA 
1900 pn=0:FOR cli=i TO 51:pn=pnti:P >NK 
EN pn MOD 2: LOCATE 9+qq#3,25:PRINT 
noab (qq) :NEXT 

1910 LOCATE 9+qq#3,25:PRINT" "; DAY 
1920 FOR i=qq#3 TO pl#3 STEP-1 >)R 









E Nom : 

Adresse : 
Code postal : 

Loto: 


À 








1930 IF 1Oqg#3 THEN SOUND 1,50,20, )CG 
8:FOR at=1 TO 500:NEXT at 

1940 LOCATE 9+i,24:PRINT nomblqg) BP 
1950 NEXT i JUA 
1960 SOUND 1,50,20,8:F0R at=1 TO 50 >RZ 
O:NEXT at:LOCATE 10+i,24:PRINT " 

" 


1970 LOCATE 10+i,25:PRINT nomb(qq); >DH 


1980 FOR at=1 TO 3000:NEXT at )uB 
1990 ? >2B 
2000 REMX##HHSHNRENHNENEENEEE JUH 
2010 REM##+ fin de partie ### VX 
2020 REMN##HHHNSHHNRERHNEENNNEE DUP 
2030 >XH 


2040 FOR at=1 TO 5000:NEXT at:CLEAR DRN 
INPUT :MODE 1 

2050 PAPER O:PEN 1:LOCATE 8,12:PRIN DVI 

T'On recossence (D/N) ? ";:PEN 2 

2060 k$=INKEYS:1F k$="" OR INSTR("O >YM 

oNn",k$)=0 THEN 2060 

2070 IF UPPER$(k$)="0" THEN 2080 EL >GD 

SE 2090 

2080 PRINT"OUI*:FOR at=1 TO 1000:NE )EB 

IT at:POKE &A000,0:RUN 40 

2090 PRINT®NON":FOR at=1 TO 1000:NE DTJ 

IT at:CLEAR INPUT:PAPER O0:PEN 1:CAL 

L &BC02:MODE 1:SPEED KEY 30,2:ENDA 











ANCIENS NUMEROS 
ee : S- 
HO 
SERIE — 

Br Ta 
Const 
DO n02---—mmmnnnne 13F 
E Q n°3, 4,5, 6,7, 8,9, 10, 11, 12,13--—-—--15 F 
l. Disquettes Hors-série 
D QHS 1,2, 3, 4,5, 6,7, 8,9, 10, 11, 12,13 
14 140F 





I Chaque disquette comporte tous les programmes du n° hors-série cor- 
respondant. Les abonnés à CPC bénéficient du tarif unitaire de 110 F 
I pour les disquettes. 


Prénom : 


Ville : 
Signature 


I Entourez le(s) numéro(s) choisis. 
Coupon(s) ou une photocopie à Editions SORACOM - La Haie 










Le jeu consiste à détruire des météorites et par là même 
l'Empire d'Antarès 3424. Vous disposez de 10 rayons lasers 
utilisables pendant 100 secondes. La difficulté du jeu 
augmente avec la descente des météorites et le rythme 
de leurs vagues successives. Chaque vague est 
identifiée par une couleur de fond. 


1 faut protéger les 6 entrepôts d'armement et les 4 compartiments 
formant la centrale électrique. Cette dernière est la source d'énergie 
des lasers et chaque compartiment détruit fait perdre un pourcentage 
des tirs. Heureusement, la centrale se regénère après chaque vague. 
La partie se termine lorsque le dernier entrepôt 
d'armement est touché. 


Mission Apocalypse est formé de 3 programmes (MISS, MISS 2 et 
MISSION). Il faut les taper et les sauver puis lancer le tout par 
RUN «MISS» ou RUN «MISSION». 


Miss 
10 REM HHHHHSNNESSNSSNNNESNUESE >TF 
20 REM # HISSION APOCALYPSE # > 
30 REN # par 4 )FH 
40 REM # LAIDIN JEAN-MARC # 8 
50 REM# (PRESENTATION) # x 
60 REN #3HHNEHHHEHSNNENENENENE TL 
70 REM K 
80 dunay=5Q(1):0N SQ(1) GOSUB 500 DAQ 
90 CLS:MODE 0:BORDER 7 >RG 
100 SYMBOL AFTER 0 D 


110 SYNBOL ASC("!"),409,424,466,499 DRL 


, 499, 466, 24, 499 
120 SYMBOL ASC("£"),0,LEF, LAB, &FE,& DLH 
98, £FF,0,0 

130 SYMBOL ASC("?"),0,LFF, &82,&F2,& DLN 
12,4F2,0,0 

140 SYMBOL ASC("(*),0,0,0,87,87,0,0 >CQ 
0 

, 

150 SYHBOL ASC(")*),0,0,0, &EO,&EO,0 )EU 
,0,0 

160 SYMBOL ASC("4"),41,43,86,86,L7, )GZ 
&6,26,0 

170 SYMBOL ASC("$"), 880, LCO, 460, L60 )PU 
LEO, 460, 860, 0 

180 SYMBOL ASC("£"),&F,L6,86,87,46, CT 
&6,LF,0 

190 SYMBOL ASC(®_"),4C0,460,460,480 DJL 


À 


? 








(MISSION 
… RPDCAUNPSÉE 





LAL:)-),:1:):,:1 


OT AUD 


Jean-Marc LAIDIN 


»0,0,0,0 

200 SYHBOL ASC("4"),43,46,8C,&C,LC, DJ] 
&6,k3,0 

210 SYMBOL ASC(":"),480,&C0,460,860 >QC 
» 460, &CO, &B0, 0 

220 SYHBOL ASC(*["),&C0,460,0,0,0,& >JM 
60,4C0,0 

230 SYNBOL ASC("+"),&F,46,86,46,L6, >GX 
&6,&F,0 

240 SYMBOL ASC("+"),0,0,0,0,420,460 DFE 
» &E0,0 

250 SYMBOL ASC("1"),86,86,86,k3,&1, >GC 
&1,43,0 

260 SYMBOL ASC("{"),860,860,460,&C0 >QG 
, 80, k60, &CO, 0 

270 SYMBOL ASC(")°),83,86,86,43,0,k >GD 
6,83,0 

260 SYMBOL ASC(®?"),8C0,860,0,4C0,& >MZ 
60,460, &C0,0 

290 SYMBOL ASC("/"),8F,06,86,47,46, >HB 
&6,&F,0 

300 SYMBOL ASC("\"),8E0, 420,860, &80 >PZ 
:&60, 20, LEO, 0 

310 SYHBOL ASC("<"),&7,&1,k1,&1,&i, >GF 
&1,&7,0 

320 SYHBOL ASC("@"),8C,RE,BF,&D,8C, >HH 
&C,&C,0 

330 SYHBOL ASC("."),860,460,460, LED DPE 


»WEO, &60, &60, 0 
340 SYMHBOL ASC(")"), LEO, 880,480, &80 >PJ 
200, &80, &E0, 0 
350 REN ######453 >K 
360 REN # TITRE # >FC 
370 REM ######4#4 »1B 


390 LOCATE 4,5:PRINT"!H 1 S S 1 O0 N >HL 
{*:LOCATE 3,9:PRINT" #94 4: 8C86n+){& 
Ja 


410 LOCATE 3,17:PRINT"A'S'%"%"1"%"% >DR 
qe 

420 LOCATE 9,14:PRINT"par":LOCATE 3 >KZ 
18: PRINT"L" #+880#: 00.27" 

430 LOCATE 3,19:PRINT"A'%'4"$"2"%"5 >DU 
_sgre 

440 LOCATE 1,22:PRINT"A'2"4"%"4"%"% >GH 
Q'UU 

450 LOCATE 1,23:PRINT"AJ E À N () M 2KJ 
ARC'° 

460 LOCATE 1,24:PRINT"X"4°%"%"4"%"% >HD 
D'UUU 

470 FOR 1=1 TO SO0:NEXT >BB 
480 FOR i=1 TO 2500:CALL &BD24:CALL >NG 
&BD25:CALL &BD23:NEXT i:GOTO 800 


490 REN SHHAHSHNNEHENEENNUEEISE >)TY 
500 REH # MARCHE MILITAIRE # VF 
510 REX : DE : >AF 
520 REM # Franz SCHUBERT # UP 
530 REM #H####HNNSHNRNENENNSE >TQ 
540 B=5 M 
550 ENV 1,2,2,7,1,0,100 >PR 
560 READ A,D >1ZB 
570 SOUND 1,A,B#D,9, 1 >PR 
580 SOUND 2,A-0.5,B#D,9 > 
590 SOUND 4,A+0.5,B#D,9, 1 TE 
600 ON SQ(1) GOSUB 500 >PY 
610 RETURN >ZC 


620 DATA 239,4,319,2,319,2,338, 4,31 DDB 
pee DATA 239,4,319,2,319,2,338,4,31 >DC 
DATA 239,4,319,4,230,4,319,4,23 DDJ 
DATA 319,4,239, 4,319,4,379,4,31 >DP 
. DATA 239,4,319,4,230, 4,190, 4,15 >DG 
Li nr 159,8, 179,4,190,4,213,8,19 >DK 
# DATA 213,4,239,8,213,4,190,4,31 )CH 


| 








DATA 284,2,319,4,1,4,159,8,179, >BP 
à DATA 190,4,142,8,159,4,190,4,17 >DA 
= DATA 159,2,179,2,190,4,179,2,19 >CH 
DATA 213,4,379, 2,358, 2,319, 2,2B )CH 
… DATA 253,2,239,2,213,4,213,2,21 >CF 
. DATA 239,4,213,4,190,4,179,4,15 >DH 
DATA 213,4,190,4,179,8,190,4,21 >CD 


3,4 


760 DATA 239,8,213,4,213, 2,213, 2,23 DLH 
9,4,213,4,190, 4,179, 4, 159,8, 253,4 

T0 DATA 239,4,213,6, 190, 2,239, 4,34 DLV 
0,2,319,2, 338, 4, 319, 4, 239,4, 310, 2 

780 DATA 319,2,338,4,319,4,239, 4,31 DM 
9,4,239,4,319, 4,239, 4,319, 4,379, 4 

790 DATA 319,4,239, 4,319, 2,319, 2,31 DRN 
9,4,319,4, 239, 12 

800 MODE 1:PEN 1:LOCATE 5,5:PRINT®Q DNA 
UE LES DIEU X°:PEN 2:L0C 
ATE 13,13:PRINT"D U JE U":PEN 3 
:LOCATE 7,21:PRINT"S O1 T AVE 

C Vous* 





810 FOR i=1 TO 1950:NEXT i >TF 
820 RUN"HISS2 JG 
Miss 2 
10 SYABOL AFTER 0 >K 
20 REN #HHNNBSSSSSNNESNANENENESESSE  DUA 
30 REN # # )BA 
40 REN # REGLES #  )LR 
50 REN # ' #  )BC 
60 REM ####H#NNEENNENENENNNNEENNSE VE 
70 REX )K 
80 REX >NA 
80 DEFINT A-Z >PF 


100 CLEAR:CLS:PAPER O:BORDER 7:PEN >LH 
2:HODE 1 

110 LOCATE 4,3:PRINT'#########4##4# )QY 
#°:LOCATE 15,9:PRINT'E####H##H#4#44": 
LOCATE 23,15:PRINT"#########8":LOCA 

TE 29,21:PRINT'assussuu" 

120 LOCATE 4,4:PRINT"# VOULEZ-VOUS AL 
#":LOCATE 15,10:PRINT"# LA REGLE #° 
sLOCATE 23,16:PRINT"# DU JEU #":LOC 


À 








° ATE 29,22:PRINT's O#N#+" 


130 LOCATE 4,5:PRINT'H####NH##HNXEES >RH 
#":LOCATE 15,11:PRINT"a#s##nnann#4" 
tLOCATE 23,17:PRINT"#a#######8":L0C 
ATE 29,23: PRINT'#######H a" 

140 FOR i=1 TO 2000:NEXT i >M 
150 z$=UPPERS(INKEYS):1F z$="" THEN >FU 
150 


160 1F z$="0" OR z$="o" THEN 200  »1Q 
170 IF z$="N" OR z$="n" THEN 190  >XY 
180 GOTO 150 >ZB 


190 FOR i=1 TO 8:FOR 43-500 TO 1 STE >DF 
P -10:SOUND 3,j,1,15:NEXT j:NEXT i: 
FOR 1=1 TO 1000:CALL &BD24:CALL &BD 
25:CALL &BD23:NEIT 1:RUN'aission 

200 REN HHHN#YANANHNNNENNENNNNENNEEES }YD 


202 REN # PRESENTATION # DUZ 
203 REX # # >GK 
204 REN # de # CC 
205 REN # # >HB 
206 REN # LA REGLE # 


207 REX PPTTETTCCTITE IEEE TEEN >TL 


210 DEFINT a-z:CLS:INK 2,15:INX 1,2 >WH 

3:1NK 3,0,25:PEN 1 

220 PEN 3:LOCATE 14,3:PRINT"R E G L >HY 
ES" 

230 PEN 2:LOCATE 3,6:PRINT"Vous ave >DB 

z ete choisi par le plus haut":PEN 

1:PRINT:PRINT"comsandesent de l’eta 

t sajor des forces":PEN 2 

240 PRINT:PRINT"intersiderales, pou >XW 

r combattre la horde":PEN 3:PRINT:P 

RINT" d’ANTARES 3424" :PE 

N1 

250 PRINT:PRINT® 

onserver le ":PEN 2 

260 PRINT:PRINT" dernier bastion de >YC 
la planete CALYPSYI":PEN 1 

270 PRINT:PRINT" 2902 eses plane >QK 

tes de la galaxie":PEN 2 

280 PRINT:PRINT:PRINT" 
ZEPHYRAN * 

290 FOR 1=1 TO 10:SOUND 9,200:SOUND >KD 
9,4095,9:SOUND 9,400,9:NEXT i 

300 LOCATE 35,25:PEN 3:PRINT"---)": >GF 

PEN 2 

310 WHILE INKEY$="":VEND JUL 

320 CLS >TK 

330 LOCATE 3,3:PRINT'ANTARES 3424 a >RN 


en vue de c >GH 


x 


decouvert une nouvelle" 
340 PEN 1:PRINT:PRINT" arse, il a c >GG 
onstruit artificiellesent":PEN 2 
350 PRINT:PRINT" ses propres seteor >BV 
ites destructrices.":PEN 1 
360 LOCATE 3,9:PRINT"Aussi, tu dois >RQ 
defendre tes 6 entre-" 
370 PEN 2:PRINT:PRINT" pots d >KC 
e l'arse salefique ":PEN 3:PRINT:PR 
INT* d'ANTARES 3424" :PEN 
1 
380 PRINT:PRINT* Chaque phase de j >XP 
eu dure 100 secondes" :PEN 2 
390 PRINT:PRINT" et tu comsences a >1V 
vec 10 rayons lazer":PEN 1 
400 PRINT:PRINT" pour intercepte >NY 
r les setecrites." 
410 FOR i=1 TO 10:SOUND 7,200:SOUND >KL 
7,4095,7:SOUND 7,400, 7:NEXT i 
420 LOCATE 35,25:PEN 3:PRINT"---»": >GJ 
PEN 2 
430 WHILE INKEY$="":VEND JUA 
440 CLS UC 
450 LOCATE 3,3:PRINT"Les 4 transfor >VE 
mateurs centraux sources" :PEN 1:PRI 
NT® de ton energie, se recharge aut 
omati-" 


460 PEN 2:PRINT:PRINT"  quement a >TZ 
pres chaques vagues de” 
470 PEN 3:PRINT:PRINT" > 


METECRITES" 
480 PEN 1:PRINT:PRINT" Si tes tran >ZD 
sforsateurs sont touches” 


490 PEN 2:PRINT:PRINT®" tu perds 20h 
un pourcentage de tes” 
500 PEN 3:PRINT:PRINT" R >TD 


AYONS LAZERS" 

510 PEN 1:PRINT:PRINT" Ta aission e >YB 
st de detruire plusieurs® 

520 PEN 3:PRINT:PRINT" YQU 
METEORITES" 
530 PEN 2:PRINT:PRINT" avec un seul )BT 
rayon pour les economiser" 
540 PEN 1:PRINT:PRINT" 

fin de partie” 
550 FOR 1=1 TO 10:SOUND 5,200:SOUND >KF 
5,4095,5:SOUND 5,400,5:MEXT i 
560 LOCATE 35,25:PEN 3:PRINT®---}": >GP 
PEN 2 


en >YA 


570 VHILE INKEY$="":VEND UF 

580 CLS >UH 

590 PEN 3:LOCATE 3,3:PRINT" RL 
SCORE" 

600 PEN 1:PRINT:PRINT:PRINT" - 50 )CT 

Pts par seteorites detruites." 

610 PEN 3:PRINT:PRINT:PRINT"  -)" >MK 











5:PEN 2:PRINT" À la fin de chaque v 
ague, * 

620 PEN 1:PRINT:PRINT" 
zers non utilises sont" 
630 PRINT:PRINT" 


les la >RD 


aultiplie >RA 
s par*;:PEN 3:PRINT" 100”; 
640 PEN 3:PRINT:PRINT:PRINT:PRINT" >DW 
->"::PEN 2:PRINT" 1000 Pts pour 

les entrepots"; 

650 PEN 1:PRINT:PRINT:PRINT" > 
restants et un": :PEN 3:PRINT" B 0 
NUS *; 

660 PEN 2:PRINT:PRINT:PRINT" > 


d’entrepots tout les * 


670 PEN 3:PRINT:PRINT" 2 RE 


0000 ";:PEN 1:PRINT" Points"; 

680 FOR i=1 TO 10:SOUND 3,200:SOUND >KZ 
3,4095,3:SOUND 3,400,3:NEXT i 

690 LOCATE 35,25:PEN 3:PRINT"--->": >GU 
PEN 2 

700 WHILE INKEY$="":VEND JUA 
710 CLS JUC 
720 LOCATE 7,10:PRINT" J 0 Y S T I >NQ 
CK";:PEN 3:PRINT" FIRE"; 

730 PEN 1:LOCATE 7,17:PRINT" C L À DUB 
VIER"3;:PEN 3:PRINT" COPY 


740 FOR i=1 TO 10:SOUND 1,200:SOUND >KK 
1,4095,1:SOUND 1,400, 1:NEXT i 
750 LOCATE 35,25:PEN 3:PRINT"---)*: >GQ 
PEN 2 
760 VHILE INKEY$="":VEND >UG 
770 CLS JUJ 
780 PEN 2:LOCATE 6,9:PRINT"#######s >IK 
ÉETEÉTI TITI TETE TO 
790 PEN 2:LOCATE 6,10:PRINT"#";:PEN >RM 
3:PRINT"G 0 0 D LUCK 
"::PEN 2:PRINT"æ" 

800 PEN 2:LOCATE 6,11:PRINT"####### )TA 
CETTECTEFETETET EEE 

810 LOCATE 7,16:PRINT" #########54 )BB 
CCTPITETEF EESTI ETES 

820 PEN 2:LOCATE 3,18:PRINT"#";:PEN )CI 
3:PRINT"B 0 Y S & G 1! 

R L S";:PEN 2:PRINT"s" 

830 LOCATE 7,18:PRINT" ###H###4#4#4 )BF 
CETEITI TITI EI TIETIIEITTC 

840 FOR i=1 TO 10:FO0R j=500 TO 1 ST >PC 
EP -10:SOUND 3, j,1,15:NEXT Jj:NEXT i 


850 FOR i=1 TO 1000:CALL &BD24:CALL BY 


&BD25:CALL &BD23:NEIT 1 
860 RUN"sission >PA 


À 





Mission 





10 REM #HHS#H#HRREEHHNNNNNNENNEEIES VB 


20 REX # HISSION FE ON 
30 REX = # AK 
40 REN # APOCALYPSE # D) 
50 REN * x  )BB 
60 REN # (JEU) ” D 
70 REX # #  )BD 
60 REM #H#NENENNSNNENENNENNNNNNEE  DUA 
90 REX >NB 
100 DEFINT a-z:DEFREAL 0,x,y )IL 


110 DIN x(20),y(20) ,ontx(20) ,oaty(2 >N 
0), xont (20) ,entrepos(10), hangar (20) 
,Cible(20), tue(20),sort(10) 

120 curx=10:cury=10:w=0:GOSUB 1380: >TZ 
duany=5Q (1) 

130 MODE O:RANDOMIZE TIME:0RIGIN 0, >RQ 
0,0,639, 380,0 

140 nosbh-6:nombt=4:nonbr=10:temp=9 >TV 
9:compte=1 

150 son$=CHR#(22)+CHR$(1):sif1$-CHR DRF 
$(22)+CHR$ (0) 

160 RESTORE 1950:PEN 9:LOCATE 1,1:P >QN 
RINT "H:99°: 

170 PEN S:LOCATE 7,1:PRINT "S:00000 >UC 
0";:PEN 10:LOCATE 17,1:PRINT "R:10" 


, 

180 FOR n=1 TO 10:READ entrepos(n): >LV 
nort(n)=0:NEXT n:debangar=9 

180 INK 0,0:BORDER O:INK 1,21:INK 2 >XA 
123: INK 3,16:INX 5,7 
200 FOR v=0 TO 4 STEP 2:PLOT 0,v,5: >KL 
DRAW 639, v:NEXT v:PRINT son$; 
210 PEN 9:FO0R n=1 TO 10:1F n)3 AND LE 
n<8 THEN 230 
220 LOCATE entrepos(n),25:PRINT "> >FK 
LA 

’ 
230 NEXT n:PEN 10:LOCATE debangar,2 )DL 
SPRINT" """"ssif1$; 
240 PLOT 0,6,15:DRAV 0,14:PLOT 639, >PV 
6:DRAU 639,14 
250 EVERY 5000,1 GOSUB 1170 JUZ 
260 EVERY 50 GOSUB 1120 >QN 
270 REM HHBSHNSHEENEESNSNNNNENNESS ZT 
# 
280 REN # 
# , 
290 REN # DESCENDANT SUR L'ECRAN  DUJ 
: 
300 REM HRHSHENNENNEENNENENNENNEEE )ZR 
# 


NOMBRE DE METEURITES DAC 


310 net=2+CINT(RND#2) :FOR n=1tmeteo >UL 

r T0 settseteor 

320 x(n)=CINT(RND4640):y(n)=400:xon >PV 

t(n)=x(n) 

330 hangar=1+CINT(RND#9) :hangar(n)= >YB 

CINT(32#entrepos (hangar )+16#(hangar 

33 AND hangar(8)) 

340 cible(n)=hangar:ontr(n)=(hangar 

(n)-x(n))/100:onty(n)=(0-y(n))/100 

350 NEXT n:descon=nettseteor >20 

360 REN SHHHHHNHNNESENNEENNNEENNEES )AB 

#4 

370 REM # DEPLACEMENT DES METEORITE )FZ 

S # 

380 REM # 
* 

390 REM #HYNSH#NHNNNEEENNNENNENENEER D AE 

HH 

400 IF vit THEN 450 >HU 

410 FOR n=1 TO descon >PI 

420 x=x(n):y=y(n):PLOT x,y,1:x=xtom >KY 

tx(n):y=ytonty(n):PLOT x,y,3:x(n)=x 

:y(n)=y 


NE 


ET DU CURSEUR >TK 


430 IF y<20 THEN GOTO 610 >RC 
440 NEXT n >PB 
450 vit=i-vit:xcursx=curx:ycursy=cu >LV 
ry 


460 cury=cury+((INKEY(haut)=u)-CINK >UR 

EY(bas)=u)) 

470 1F (cury<2 OR cury>23) THEN cur >MR 

y=ycursy 

480 curx=curx+((INKEY(gauche)=u)-(1 >AB 

NKEY(droite)=w)) 

490 1F (curx<i OR curx>20) THEN cur DJ 

X=ICUTS1 

500 a=-((curx<4)+(curx<7)+(curx<10) MG 

):c=-((curx>17)+(curx>14)+(curx>10) 

):b=3-(atc) 

510 ton=cury#50:SOUND 129,ton,99,a: >ZV 

SOUND 131,ton,99,b:SOUND 133, ton, 99 

,C 

520 DI:PEN 4:LOCATE xcursx,ycursy:P >PW 

RINT ""; 

530 LOCATE curx,cury:PRINT "#";:El DEL 

540 IF INKEY(feu)=u THEN GOSUB 850 )BT 

550 IF (RND<0.015 AND descos(18) TH DFI 

EN seteor=descon:G0TO 310 

560 GOTO 400 >ZB 

570 REN #HH##S2#HHHHHHHMESENNSENNEES )AE 

CPL 

580 REM # DESTRUCTION DE LA CIBLE >BD 
# 

590 REN + 
# 

600 REM ##HH##H#H##HNSESNESHNNENNNEES AY 

#4 


PAR LES METEURITES à Li 








| 





610 GOSUB 680:1F descon=0 THEN sete >GH 
or=0:G0T0 310 ELSE GOTO 400 

620 END >TB 
630 REM HH####HEENNNENNEEENNEENNEES )ZY 
## 

640 REX # DESTRUCTION DES ENTREPOTS >FX 
% 

650 REX + et 
x 

660 REM # DE LA CENTRALE ELECTRIQUE >DP 
% 

670 REM HHR##H##EHHNENHENHENNENNNEEE )2C 
## 

680 hangar=cible(n):1F mort(hangar) >QR 
=1 THEN 720 

690 nort(hangar)=1:1F (hangar>3 AND AH 
hangar(8) THEN nosbr=CINT(nosbr-no 
abr/nosbt):nosbt=nosbt-1:GOSUB 1070 

:1F nosbt(1 THEN nosbr=0:nosbt=1:G0 

TO 720 ELSE 720 

700 nosbh=nosbh-1:1F(nosbhtstore))0 >BB 
THEN 720 ELSE dussy=REMAIN(0) : dun 
y=REMAIN(1) :RESTORE:PEN 1:FO0R 1=1 T. 

0 500:CALL &BD24:CALL &BD25:CALL &B 
D23:NEXT 1:1NK 2,15:INK 1,23:INK 3, 

0,25:PEN 3:LOCATE 7,12:PRINTGAME 0 
VER*:0N SQ(1) GOSUB 1620:G0T0 2020 

710 GOTO 710 >1C 
720 FOR ret=-4 TO 4 STEP 4:MOVE xon >HY 
t(n)+ret,400:DRAW hangar (n)+tret,0,0 
:NEIT ret 

730 Dl:hangar(n)=CINT(hangar(n)/32) >KD 
:PEN 6:LOCATE hangar(n),25 

740 IF hangar(n)(9 OR hangar(n)>12 >LA 

THEN PRINT "/\";ELSE PRINT"-"; 

750 FOR k=999 TO O STEP -15:SOUND 5 >AL 
sRNDEK,1,15,,,1:NEXT k 

760 PLOT 0,0,5:DRAW 639,0:PLOT 0,6, >WH 
15:DRAW 0,14:PLOT 639,6:DRAW 639, 14 

‘EI 

7170 FOR k=n TO descon-1 >RU 

780 x(k)=x(k+1):y(k)=y(kt{):omtx(k) DNE 
sontr(kti):onty(k)=onty(k+1) 

790 hangar (k)=hangar(k+1):cible(k)= >PH 

cible(kt1):xont(k)=xont(k+1) 


>EF 


800 NEXT k:descos=descon-1 >vQ 
810 RETURN ZE 
820 REM HH##HH#N#HH#NRENNNEEE >RA 
830 REM # TIR DES LAZERS # >TV 
840 REM HHNSBHNEEHNNNHNENIEE >RC 


850 IF nosbr(i THEN FOR hyt=300 TO )JH 
0 STEP -10:S0UND 130,hyt,1,5:NEXT h 


yt:G0T0 1080 








° 660 cx=CINT(curx#32-16):cy=CINT(408 >PQ 


-cury#16) 

870 PLOT 0,16,14:DRAV cx,cy:PLOT 63 DUE 
9,16:DRAY cx,cy 

880 DI:PLOT cx,cy,11:bing=0:tue=0 >CH 
890 j=0:expx=25:expy=0 >TL 
900 j1=jtexpytexpyt1:j2=j1-expx-exp >VJ 
x1+1:MOVE cx,cy:DRAWR expx,expy 

910 HOVE cx,cy:DRAWR -expx,expy:H0V >AK 
E cx,cy:DRAUR expx, -expy:MOVE cx,cy 
920 DRAUR -expx, -expy:MOVE cx,cy:DR >KZ 
AUR expy,expr:MOVE cx,cy 

930 DRAUR -expy,exprx:MOVE cx,cy:DRA >KC 
VR expy,-expr:HOVE cx,cy 

940 DRAUR -expy,-expx:j=j1:expy=exp >NH 
y+2:El 

950 SOUND 128, j1:SOUND 131,expy:S0U >RX 


ND 133,expx 

960 IF ABS(j2)CABS(j1) THEN j=j2:ex >NG 
px=expx-1 

970 IF expx>expy THEN 900 >UB 
980 IF bing THEN 1070 >NU 


990 FOR n=1 TO descon:1F TEST(x(n), >WY 
y(n))=11 THEN tue=tueti:dest(tue)=n 
1000 NEXT n:1F tue=0 THEN 1050 )IE 
1010 FOR recon=i TO tue:n-dest(reco >GV 
a) 

1020 FOR ret=-4 TO 4 STEP 4:MOVE xo >FK 
st(n)tret,400:DRAY x(n)+tret,y(n),0: 
NEIT ret 

1030 FOR bang=1500 TO 100 STEP -25: )QU 
SOUND 5,RND#bang, 3, bang/200, 0,0, ban 
g/350:NEXT bang:G0SUB 770:FO0R a=rec 
osti TO tue:dest(a)=dest(n)-1:NEXT 

[] 

1040 NEXT recon:tscore=tscore+50ttu >YQ 
e:DI:G0SUB 1320 

1050 bing=1:DI:PLOT 0,16,0:DRAU cx, 
cy:PLOT 639,16:DRAU cx, cy 

1060 nombr=nosbr-1:PLOT cx,cy,0:G0T >KF 
0 890 


GE 


1070 DI:PEN 10:LOCATE 19,1:PRINT US >YA 
ING "#4" ;snonbr; :El 

1080 RETURN )FC 
1090 REM #####NE HN >TZ 
1100 REM # COMPTE À REBOURS # WU 
1110 REM HH###HNRANNERNHNENHNNE >TR 
1120 DI:tesp=temp-1:PEN 9:LOCATE 3, >KV 
1:PRINT USING "#4" ;tenp; :El 

1130 RETURN )EJ 
1140 REM DUREE UN 
1150 REM # FIN DE CHAQUE VAGUES #  >ZP 
1160 REM #RY##HHWEH#NENNNHHHHNENNNEE V0 
1170 couleur=couleur+1:iF (couleur: >RC 


2 OR couleur=7 OR couleur=12 OR cou 
leur=14 OR couleur=16 OR couleur=21 


OR couleur=24) THEN 1170 
1180 IF couleur=26 THEN couleur-0  >CP 
1190 INK 0, couleur :BORDER couleur:t >NC 
esp=100 
1200 tscore=tscore+1000#nombh+100#n >VF 
osbr:nosbt=4:nosbr=10:G0SUB 1070 
1210 FOR retabl=4 TO 7:nort(retabl) >VQ 
=0:NEXT retabl 
1220 PEN 10:LOCATE debangar,25:PRIN >BV 
T sont;""""":s1f1$; 
1230 IF (tscore/conpte)>=20000 THEN >GV 
cospte=cospteti:score=scoret1:FOR 
retabl=1 TO 99:SOUND 130,RND#retabl 
1, 7:NEIT retabl 
1240 IF (noabh=6 OR score-0) THEN 1 >DI 
320 
1250 FOR centrale=1 TO 3:retabl=7+c >LN 
entrale:1F mort(retabl)=0 THEN reta 
bl=4-centrale:1F mort(retabl)=0 THE 
N 1310 
1260 nort(retabl)=0:nombh=nombhti:s >WG 
core=score-1 
1270 PEN 5:LOCATE entrepos(retabl), >WK 
25:PRINT son$ ;CHR$ (255) ;CHR$ (255) ; 
1280 PEN 9:LOCATE entrepos(retabl), >CY 
25:PRINT "O";sit1$; 
1290 1F (nombh=6 OR score-0) THEN 1 >DC 
320 
1300 IF retabl}7 THEN retabl=4-cent >RP 
rale:I1F sort(retabl)=1 THEN 1260 
1310 NEIT centrale NT 
1320 IF tscore>999999 THEN tscore=t >ZE 
score-1000000:compte=1:PEN 5:LOCATE 
9,1:PRINT"000000"; 
1330 score$=STR$(tscore):score$=HID >TT 
$(scores$,2) 
1340 LOCATE (14+(tscore>9)+(tscore) >RX 
99)+(tscore>999)+(tscore>9999)+(tsc 


ore>99999)),1 

1350 PEN 5:PRINT scoref; >TN 
1360 RETURN >FD 
1370 REN #H#H#######N#NSBNñfst >RF 
1380 REN # INITIALISATION # VA 
1300 REM ####HN#HNNNSNNESES >2H 


1400 MODE 1:INK 0,13:1INK 1,0:INK 3, DME 
22:BORDER 9 

1410 PEN 1:LOCATE 11,2:PRINT"MISSI0 >VT 
N APOCALYPSE® 

1420 PEN 3:LOCATE 18,4:PRINT"par"  )CF 
1430 PEN 2:LOCATE 12,6:PRINT'LAIDIN >RJ 
JEAN-HARC" 

1440 PEN 1:LOCATE 9,10:PRINT"FAIÎTE AH 
PREUVE D'HABILITE" 

1450 PEN 3:LOCATE 13,13:PRINT'ET D’ >PR 
UN PEU DE" 

1460 PEN 2:LOCATE 15,16:PRINT"STRAT >KV 








EGIE" 

1470 PEN 1:LOCATE 4,19:PRINT"(FONCT NE 
IONNEHENT DU LAZER À 99%!!1)" 

1480 PEN 3:LOCATE 3,24:PRINT "APPUY DUG 
ER SUR LA TOUCHE ESPACE OÙ FIRE" 

1490 a$=INKETS:1F(a$C>" * AND a$C" DYY 
1") THEN 1490:1F (a$=" " OR a$="1°) 
THEN 1500 

1500 IF a$=" " THEN haut=0:bas-2:ga DAU 
uche=8:droite=1:feu=9 ELSE haut=72: 
bas=73: gauche=74:droite=75:feu=76 

1510 SYMBOL AFTER 0 > 
1520 SYABOL ASC("<*),0,855, BA, 481, >RN 
LAA,495, RAA, &81 

1530 SYHBOL ASC(*2"),0, LAA, SD, 481, >RT 
&55,&A9,&55,&81 

1540 SYHBOL ASC(*/*),0,0,0,0,0,&C0, >DV 
&FO 

1550 SYMBOL ASC("\*),0,0,0,0,0,&k3,& >CA 
F 

1560 STHBOL ASC(**"),0,R5A,LE7, USA, )TE 
&BD,&42,&DB,&5A 

1570 SYABOL ASC("#"),&3C, RSA, BAS, LC VU 
3,803, LAS, LSA, L3C 

1580 SYMBOL ASC("-"),0,0,0,0,0,8C3, >DG 

&E7 

1590 SYNBOL 255,0,0,0,0,0,8FF,RFF,& >DZ 

FF 

1600 RETURN )FA 
1610 REM NASHNNSEHSARSSANNSNNNENEEE )TP 


1620 REN # MUSIQUE # NE 
1630 REN # La Truite de + RQ 
1640 REN # SCHUBERT # >PC 


1650 REN #HHHHHNBHNNEENNNESNNENSNEEE )YU 


1660 SOUND 4,A,B#3,V,1 >07 
1670 SOUND 2,A-1,B43,V,1 >RT 
1680 SOUND 1,A,B#3,V,1 YQY 
1690 NEXT K D 
1700 RETURN >FB 
1710 DATA 358,8 )RJ 


1720 DATA 268,8,268,8,213,8,213,8,2 >EA 
68,16 

1730 DATA 358,12,358,4,358,16,239,4 >FQ 
268,4 

1740 DATA 284,4,319,4 M 
1750 DATA 358,16,2,8,358,8,268,8,26 >DD 
8,8 

1760 DATA 213,8,213,8,268,16,358,8, DFE 


À 








2000 REX # 





268,8 

1770 DATA 284,6,319,4,284,4,268,8,3 DEV 
79,8 

1780 DATA 358,16,2,8,358,8 TJ 
1790 DATA 284,6,284,6,268,4,284,4,3 DEN 
19,4 

1800 DATA 284,4,268, 16,358,6,268,8, >FD 
284,8 

1810 DATA 284,6,284,4,201,4,239,4,2 DV 
84,4 

1820 DATA 268, 24,268,8 >PL 
1830 DATA 301,8,301,8,301,8,268,8,2 DEK 
68,16 

1840 DATA 358,12,358,4,358,16,239,6 >FZ 
284,8 

1850 DATA 268,24,268,8,284,4,319,4, >EH 
319,8 

1860 DATA 319,4,268,4,284,4,239,4  >TR 
1870 DATA 268, 16,358, 12,308,4,358,1 >BV 
6 

1880 DATA 239,6,284,8,268,16,358,4, >FD 
426,4 

1890 DATA 402,4,379,4,358,4,213,68,2 DEE 
68,8 

1900 DATA 2,4,536,4,426,4,402,4,379 )CF 
4 

L1 

1910 DATA 358,4,213,8,268,8,2,10,53 >CG 
6,4 

1920 DATA 426, 4,402, 4,379,4,358,4,2 DDY 
13,8 

1930 DATA 358,6, 268, 24 >PN 
1940 REM NESNHM#SHNENHNHNENNUNEENNEE )7X 
3 

1950 REN # POSITIONS DES ENTREPOTS )EV 
3 

1960 REM HRHHHMEEMNNEENNNEENNNNENNES »7Z 
3 

1970 DATA 1,4,7,9,10,11,12,13,16,19 DAY 


1980 REM HARH##A#ANMEHNNENNENENEEIS AD 
H 
1990 REN # 
3 


CONTROLE D’UNE >PC 


PARTIE FINIE >TN 
% 

2010 REN #HH#NEEHNENEENENNENENNEER )ZU 
#3 

2020 CLS:MODE 1:SYMBOL AFTER 0:BORD >RG 

ER 9:1INK 2,15:1NK 1,23:1K 3,0,25:P 

EN 3:LOCATE 10,12:PRINT"UNE AUTRE P 

ARTIE O/N° 

2030 f$=UPPERS(INKEYS):1F f$="" THE >GC 

N 2030 

2040 IF f$="0" OR f$="o" THEN RUN TB 

2050 IF f$="N" OR f$="n" THEN NEV DIN 

2060 GOTO 2030 


YA 





LISTING 
COULEUR 





Arnaud BERRY 


Ce programme permet, lorsqu'il 
est appelé, d'afficher en couleur 
(couleur de l'encre n° 2) les numé- 
ros de lignes de programmes lors 
d'un listing. 


n autre appel et l’effet est annulé. 
En mode 2, par exemple, un LIST 
ne fait pas apparaître les numéros de li- 


gnes (cela fait un drôle d’effet). 


Il suffit alors de faire : Run «Listcoul» 
puis un CALL &A500 (puis un list). Un 


autre call & A500 et tout est normal. 


10 5=0 >HH 
20 FOR 1=0 T0 116 )CE 
30 READ A$ JA 
40 POKE &A5O0+1, VAL("&"+A$) JUU 
50 S=S+VAL("&"+A$) ME 
60 NEXT 1 6J 
70 IF SC>16083 THEN PRINT"ERREUR" BU 
80 END >LH 


100 DATA 3A,SA,BB,FE,CF,20,0C,3E  >ZC 
110 DATA C3,32,5A,BB,21,22,45,22  )YQ 
120 DATA SB,BB,C9,3E,CF,32,5A,BB  >ZN 
130 DATA AF,32,5B,BB,3E,94,32,5C  DYY 
140 DATA BB,C9,F5,D5,E5,CD,93,BB  2ZF 
150 DATA 32,75,A5,2A,34,AE,23,7E  DYP 
160 DATA FE,A7,E1,20,16,11,A4,AC  DYN 
170 DATA CD,60,A5,13,CD,60,A5,13  DYY 
180 DATA CD,60,A5,13,CD,60,A5,13  DYZ 
190 DATA CD,60,A5,00,D1,F1,CD,5C  >ZB 
200 DATA A5,F5,E5,34,75,A5,CD,90  DYE 
210 DATA BB,E1,F1,C9,00,CF,00,94  )YQ 
220 DATA 7C,92,C0,7D,93,C0,7E,FE 226 
230 DATA 3A,D0,FE,30,D8,E5,3E,02  DYW 
240 DATA CD,90,BB,E1,C9 





4 SATANIA 


René VENICX 


SATANIA est une simulation, 
sur CPC, du jeu de lettres 
«SATANIX». 

Ce jeu est constitué d’un axe de 
plastique autour duquel pivotent 
16 anneaux amovibles, chacun 
d'eux comportant 9 lettres ainsi 
qu’une case vide. 

Le but du jeu consiste à former 
des mots en manipulant les 
différents anneaux de manière à 
obtenir le plus de points, compte 
tenu de la valeur des lettres ; de 
plus, un «boni» est accordé pour 
les mots comprenant au moins 
sept lettres. 


C e programme permet de disputer de 
passionnants tournois chronométrés 
avec un maximum de 5 joueurs qet of- 
fre en outre 5 niveaux de difficulté dé- 
terminant le nombre minimum de lettres 


que doivent comporter les mots ; de plus, - 


SATANIA «mélange» au hasard les «an- 
neaux» à chaque tour. 


À 


LE JEU 


Après la présentation, vous entrez le 
nombre de joueurs, les prénoms ainsi que 
le niveau de difficulté choisi (niveau 1 : 
minimum 3 lettres ; niveau 5 : minimum 
7 lettres !) : ensuite, entrez la valeur du 
chrono (1 à 5 minutes) : si vous désirez 
le mettre hors service, pressez simple- 
ment N. 

La partie démarre alors avec la réinitia- 
lisation des anneaux et l'affichage de 
ceux-ci. 

Pour former un mot, sélectionnez l’an- 
neau désiré au moyen des touches — —> 
puis, faites-le «tourner» vers le haut ou 
le bas par les touches T J et ainsi de suite 


jusqu’à l'obtention d’un mot complet dans 
la rangée centrale entre les deux repères 
jaunes (le mot ne doit pas obligatoire- 
ment commencer par le premier anneau, 
mais ne peut pas comprendre d’espace !). 
Lorsque le mot est terminé, pressez EN- 
TER pour le valider : il sera alors repro- 
duit en dessous du SATANIA tandis que 
le programme calculera et affichera vo- 
tre score et votre boni éventuel : on presse 
ESPACE pour passer au joueur suivant. 
Une partie comprend 10 tours et, à la fin 
de chaque tour, le nom du joueur ayant 
le meilleur score est affiché sous la va- 
leur des lettres. 

Les mots ayant déjà été proposés au cours 
d’une partie ou ne comportant pas le mi- 


nimum de lettres requis seront refusés : 
dépêchez-vous de corriger avant que 
n’expire le temps imparti, car si vous 
n’avez pas pressé ENTER à temps, SA- 
TANIA vous collera un score nul sans 
autre forme de procès ! 

Les mots entrés peuvent être des noms 
communs, adjectifs, au féminin comme 
‘au pluriel ainsi que les verbes conjugués 
ou non, à l’exception des noms propres 
et des noms composés : le dictionnaire 
est évidemment autorisé ! 





Le programme ne peut malheureusement 
pas vérifier la validité des mots : soyez 
"sportifs" ! 

Le boni est de 5 points pour les mots de 


7 ou 8 lettres, de 10 points pour les mots 


de 9 ou 10 lettres et de 15 points pour 
les mots de plus de 10 lettres. 
A la fin de la partie, SATANIA congra- 


tulera le (la) gagnant(e) et vous propo- 
sera de rejouer. 















ble pouf 
Y£ crc 
æ crc 6, 


10 * SATANIA, par Rene VENICX LA 
20 * D’apres le jeu SATANIX (C) >LB 
30 septesbre 1988 )LC 


60 IF CR-0 THEN PEN 1:LOCATE 34,7:P >HZ 
RINT"NON" 

70 FOR T=1 TO 10:LOCATE 36,16:PEN 1 DWJ 
PRINT T:GOSUB 290 ° 

680 FOR JN=1 TO NJ:IMP=IMP+1:LOCATE DYD 
2,19+JN:PEN 1:PRINT JS(JN):TE=1:1F 

CR THEN MN-CR:SEC=1:LOCATE 34,7:PRI 

NT USING"8" :;CR; :PRINT":00" 

90 GOSUB 410:PEN O:PAPER 1:LOCATE 3 >DW 
2,9:PRINT®ENTER" :PAPER 3:LOCATE 31, 
12:PRINT'ESPACE" : PAPER O:PEN 1:GO0SU 

B 510:1F T=10 AND JN=NJ THEN 140 

100 PEN O:PAPER 3:LOCATE 32,9:PRINT )TQ 
"ENTER" :PAPER 1:LOCATE 31,12:PRINT" 
ESPACE" :PAPER 0 , 

110 GOSUB 2060:1F ASC(R$)(>32 THEN )DR 
110 

120 PEN 2:LOCATE 2,YP:PRINT J$(JN): >KW 
LOCATE 15,YP:PRINT SC:LOCATE 26, YP: 
PRINT ST:LOCATE 33,YP:PRINT SCT(JN) 

:1F BN THEN LOCATE 21,YP:PRINT BN 


130 NEXT )X 
140 FOR IE=1 TO NJ >LJ 
150 FOR 11=1 TO NJ LP 
160 IF 1E=11 THEN 180 > 
170 IF SCT(IE)(SCT(11) THEN 200 )YL 
180 NEXT DEE 


190 G$=J$(1E) :LG=LEN(G$) :LOCATE 2,7 DAV 
PRINT STRINGS(12," "):LOCATE 2,7:P 

EN 1:PRINT G$:G0T0 210 

200 NEXT >DH 
210 NEXT:RESTORE 2020:G0SUB 1970:PR DAN 
INT CHR$ (22); CHR$(1):LOCATE 12+INT( 
(16-LG)/2),11:PEN 1:PRINT G$:PRINT 
CHR$(22) ;CHRS$ (0) :RESTORE 220 

220 DATA 120, 190,94, 160,80, 120,60,9 >BQ 
4 

230 DUR=50:FOR 1=1 TO 4:READ N1,N2: DRU 
SOUND i,N1,DUR, 7:SOUND 2,N2, DUR, 15: 
DUR=DUR+5 :NEXT : 

240 GOSUB 2060:R$=UPPERS(R$):1F ASC DJN 
(R$)€78 OR ASC(RS)>79 THEN 240 

250 IF R$="0" THEN RUN ELSE CLS:END )BH 


260 ? )RJ 


270 MELANGE ANNEAUX >RK 
280 ? TA 
290 FOR 1=1 TO 16:FL(1)=0:NEXT YF 
300 PEN 2:FOR 1-27 TO 12 STEP -1:F0 2KN 

R Y=9 TO 13 

310 IF Y=11 THEN SOUND 1,500,3,15:C >PN 
=232 ELSE C=32 

320 LOCATE X,Y:PRINT CHR$(C):NEXT:N )JG 
EXT 

330 RANDOMIZE TIME >NV 
340 FOR 1=1 TO 16 >CF 
350 H=INTCRND#20): IF HC1 OR H>16 TH DGT 

EN 350 

360 IF FL(H)=1 THEN 350 >PY 

370 SA(D)=H:FL(H)=1:NEXT:FOR 1=1 TO NT 
16:L(1,1)=1:NEXT:GOSUB 2110:RETURN 


380 ? >TB 
390 * REINITIALISATION ANNEAUX )TC 
400 RE 


410 GOSUB 2110:PEN O:LOCATE 12,14:P >KL 
RINT EF$ 

420 PRINT CHR$(22) ;CHR$(1):FOR 1=1 CN 
TO 16:1F L(1,1)=4 THEN 460 

430 FOR IA=1 TO 5:LUIA,1)=1A+3:L$C1 UV 
A, D=HIDS(AS$CSACL)),LCIA, D),1):NEXT 


440 FOR Y-9 TO 13:LOCATE 11+1,Y:PEN TG 
2:PRINT CHR$(252) :PEN 1:LOCATE 11+ 
L,Y:PRINT L$(Y-8,1):1F Y=11 THEN 50 

UND 1,500,3,15 

450 NEIT DEE 
460 NEXT:PRINT CHRS$(22);CHR$(O)  DZV 
470 S=1:LOCATE 12, 14:PEN 3:PRINT CH DUP 
RS (244) :RETURN 


480 ? TC 
490 *CONFECTION MOTS/CALCUL SCORE  >TD 
500 ? RF 


510 IF CR THEN EVERY 50 GOSUB 1880 >AV 
520 PRINT CHR$(22) ;CHR$(1):EI :GOSUB >DV 
950:DI:1F TE=1 THEN 540 

530 PRINT CHR$(22) ;CHR$(0):Z=REMAIN >LA 
(0):SC-0:LM=0:GO0SUB 2110:LOCATE 14, 
16:PEN 1:PRINT®TEMPS ECOULE":FOR 1= 

125 TO 500 STEP 2:SOUND 1,1,1,15:NE 
IT:G0TO 840 

540 1F C=13 THEN PRINT CHR$(22) ;CHR DPF 
$(0):GOT0 700 

550 IF C(242 THEN 600 NV 
560 PRINT CHR$(22) ;CHR$(0) :LOCATE 1 DUR 
1+S,14:PRINT" * 

570 IF C=242 THEN S=S-1 ELSE S=S+1 AV 
580 1F SC1 THEN S=1 ELSE IF 5>16 TH GB 
EN 5=16 

590 PEN 3:LOCATE 11+5,14:PRINT CHR$ DVE 
(244):SOUND 1,125,3,15:PRINT CHR$(2 








2);CHR$(1) :GOTO 520 

600 IF C=240 THEN P-1:D=13:A=9:ST=- )EH 
1 ELSE P=-1:D-9:A=13:ST=1 

610 FOR 1=1 TO 5 DE 
620 L(1,5)=L(1,5)+P >NP 
630 IF L(I,5)C1 THEN L(1,5)=10 DWF 
640 IF L(1,5)>10 THEN L(1,5)=1 WG 
650 L#(1,S)=MID$(A$CSA(S)),L(1,S),1 DIX 
):NEXT 

660 FOR Y=-D TO A STEP ST >RR 
670 PEN 2:LOCATE 11+S,Y:PRINT CHR$( UN 
252) ;CHR$(8);:PEN 1:PRINT L$(Y-8,5) 

680 IF Y=11 THEN SOUND 1,500,3,15  )2ZD 
690 NEXT:G0TO 520 >HN 
700 HD$="":LM-0 >XH 
710 FOR 1=1 TO 16:1F L$(3,1)€>" " T DFA 
HEN 730 ; 

720 IF LMCND+2 THEN HD$="":G0T0 740 >JG 
ELSE 750 

730 HD$=HD$+L$ (3, 1) :LMH=LEN(MDS) >ZH 
740 NEXT:1F LH>=ND+2 THEN 7950 ELSE )QF 
GOSUB 2110:PEN 1:LOCATE 14,16:PRINT 
"NIN LETTRES" :LOCATE 17,16:PRINT 
ND+2:G0SUB 2150:GO0T0 520 


750 1=12+INT((16-LN)/2) >RQ 
760 IF IMP(2 THEN 800 JNR 
770 FOR CTR=1 TO INP-1 QG 


780 IF MD$=MDP$(CTR) THEN GOSUB 211 AZ 
O:LOCATE 13,16:PRINT"DEJA PROPOSE ! 
“:GOSUB 2150:G0T0 520 

790 NEXT )FB 
800 MDP$(IMP)=ND$:Z=REMAIN(O) :GOSUB TJ 
2110:PEN 1:LOCATE 1,16:PRINT MD$ 


810 PEN 1:SC-0:FO0R 1=1 TO LA >vQ 
820 SC=SC+VL(ASCCHID$((HD$),1,1))-6 DEJ 
4) 

830 NEXT EG 


840 IF LMHC7 THEN BN-0:G0T0 880 )1G 
650 IF LM)6 AND LH(9 THEN BN=5:GO0T0 DFA 
880 

860 IF LH>8 AND LN(11 THEN BN=10:G0 >GW 
TO 880 

870 IF LM>10 THEN BN:15 >QN 
880 ST-SC+BN:YP=19+JN:SCT(JN)=SCT(J PA 
N)+ST:RESTORE 890:FOR 1=1 TO 4:READ 
A:LOCATE A, YP:PRINT Z$:NEXT 

890 DATA 16,21,27,34 >MP 
900 PEN 1:LOCATE 15,YP:PRINT SC:LOC >RD 

ATE 26,YP:PRINT ST:LOCATE 33,YP:PRI 

NT SCT(JN):1F BN THEN PAPER 2:LOCAT 

E 21,YP:PRINT BN:PAPER 0 

910 LOCATE 11+S,14:PRINT" ":RETURN DDP 


À 


# 930 ’ 





GESTION CLAVIER TC 
940 ? >D 
950 CALL &BB03 >HD 
960 R$=INKEYS >RF 
970 IF TE=0 THEN RETURN >RR 
980 IF R$="" THEN 960 ELSE DI JUD 


990 C=ASC(RS):1F CC>13 AND (C<240 0 DRX 
R C»243) THEN El:G0T0 950 ELSE RETU 
RN 


1000 ? )XD 
1010 *  INITIALISATION GENERALE DIE 
1020 ? )XF 


1030 DEFINT A-Z:DIM PR$(16),A$(16), DVJ 
MDP$(50),SA(16),FL(16), VL(26),L(5, 1 
6),L#(5,16):INX 0,0:BORDER 9:1MK 1, 
25:1NK 2,2:INK 3, 16:STX$=STRINGS (18 
,CHRS (252) ) :EF$=STRINGS (16, CHR$ (252 
)):Z8=STRINGS(4," *) 

1040 TVL$="1424144818C24224011224CC DEL 
C8" 

1050 SYMBOL 248,14, 30,62, 126, 254,25 DHA 
4,254,0 

1060 SYMBOL 249, 240, 248, 252, 254,254 DLE 
,254,254,0 

1070 SYMBOL 250,254, 254,254, 254,126 DJD 
,62, 30,0 

1080 SYMBOL 251,254, 254,254, 254,254 DLE 
,252, 248,0 

1090 SYHBOL 252, 254, 254,254, 254,254 DLF 
,254,254,0 

1100 FOR 1=1 TO 26:VL(I)=VAL("L"+HI XP 
D$CTVLS, 1,1)):NEXT 

1110 RESTORE 1120:FOR 1=1 TO 16:REA DGB 
D 1$:A$(1)=1$:NEXT:RETURN 


1120 DATA ACTEQ RISB )PE 
1130 DATA ALERS UMKI >PX 
1140 DATA DOVBN EAIF >PP 
1150 DATA UPSAR ICNE >PN 
1160 DATA HNEVL TUOS PE 
1170 DATA EJNRA SLIU >PB 
1180 DATA SOCTY EAIR >PG 
1190 DATA LIRAS ITNE PT 
1200 DATA HOUNZ LEAR >PH 
1210 DATA AGTED OPRF >PC 
1220 DATA OHITD RESA >PR 
1230 DATA EILJIN ARSO >PR 
1240 DATA 10GTC EFPA PV 
1250 DATA EOTCU DBAS >PE 
1260 DATA SRIAE YGTH >PK 
1270 DATA LIZRS NEHA >PF 
1280 )YD 
1290 * PRESENTATION )YE 
1300 ! )16 


1310 RESTORE 1330:FOR 1=1 TO 7:READ >GK 
A,B,C:YC=400-(A#16)+8:1D=(B#16) -9: 


)TB m 1A=(C#16)-9:MOVE XD, YC:DRAV JA, VC, 3 


:NEXT 

1320 FOR 1=1 TO 10:READ A,B,C:1C=(A DFU 
#16)-9:YD=400-(B#16)+8:YA=400-(C#16 
)+8:FOR RV=0 TO 2 STEP 2:XC=XC+RV:h 

OVE XC,YD:DRAU XC, YA, 3:NEXT:NEXT 

1330 DATA 1,1,40,6,1,40,8,1,40,15,1 >MK 
,40,17,1,40,19,1,40,25,1,40,1,1,25, 
10,8,17,14,6,8,14,17,25,20,17,25,24 
6,8,25,17,25,29,8,17,31,17,25,40,1 


25 
’ 
1340 1=5:Y=2:PRINT CHR$(22) ;CHR$(1) DDF 


1350 FOR 1=1 TO 26 >LL 
1360 IF X235 THEN Y=Y+1 >) 
1370 IF X>35 THEN IF Y(5 THEN 1=5 E HD 
LSE X=10 

1380 PEN 2:LOCATE 1,Y:PRINT CHR$(I+ >BK 
64);":";:CHR$(8) ;:PEN 1:PRINT VL(I): 
1=X45 


1390 NEXT:PRINT CHR#(22);CHR#(0)  DAA 
1400 RESTORE 1440 LN 
1410 READ 1,Y,PE,PA,TI$ RG 
1420 IF X=0 THEN 1470 NN 


1430 PAPER PA:PEN PE:LOCATE X,Y:PRI DUT 
NT TA$:G0T0 1410 

1440 DATA 15,7,2,0,NIVEAU, 26,7,0,2, >EK 
CHRONO, 32,9, 0,3, ENTER, 30, 10,2, 0, ENT 

RER NOT,31,12,0,3,ESPACE, 31,13,2,0, 
JOUEUR, 31, 14,2,0, SUIVANT, 3, 10,2,0,5 

EL, 3,12,2,0,R07,4,16,2,0,H 0 T,30,1 
6,2,0, "TOUR :° 

1450 DATA 3,18,1,2,9 O0 U E U R,15,1 DCY 
8,1,2,SC0RE, 21,18, 1,2,BONI,26, 18,1, 
2,"S.T07",33,18,1,3, TOTAL 

1460 DATA 0,0,0,0,Z HV 
1470 PAPER O:PEN 1:LOCATE 7,10:PRIN >DZ 
T CHR$(242) ;CHR$(243) :LOCATE 7,12:P 
RINT CHR$(240) ;CHR$ (241) 

1480 FOR Y=9 TO 13:LOCATE 11,Y:PEN DXB 
2:PRINT STI$:NEXT 

1490 LOCATE 11,9:PRINT CHR$(248) :LO >VX 
CATE 28,9:PRINT CHR$(249) :LOCATE 11 
,13:PRINT CHR$(250) :LOCATE 28, 13:PR 

INT CHR$ (251) 

1500 PRINT CHR$(22) ;CHR$(1):PEN 1:L 2MF 
OCATE 11,11:PRINT CHR$ (246) :LOCATE 
28,11:PRINT CHRS(247):PRINT CHR$(22 

) ;CHR$ (0) 

1510 RESTORE 1520 

1520 DATA®R ","ES ","N 


>LP 
*,"E TK 


AE," ",'VTN",'"E ", "NPA 
T',"IR ",'CENE","XS ","EIR", 
UN "TA "EE *," . 


1530 FOR 1=1 TO 16:READ TX$:PR$(1)= >DP 
STRINGS(5," ")+TAS:NEXT 








1540 FOR PCS=1 TO 5:FOR 1=1 TO 16:L )CA 
(PCS, 1)=PCS:NEXT:NEXT 

1550 FOR 11=1 TO 16 )LJ 
1560 PEN 3:LOCATE 11+11,14:PRINT CH DDF 
R$(244) :SOUND 1,125,3,15 


1570 IF 11=5 OR 11=16 THEN 1680 JA 
1580 FOR 13=1 TO 5 LP 
1590 FOR 12=1 TO 5 LP 
1600 L(12,11)=LC12,11)+1:NEXT DIF 
1610 FOR 12=1 TO 5 >LG 


1620 L$(12,11)=HID$((PR$(11)),LC12, ONF 
11),1):NEXT 

1630 PRINT CHR$(22) ;CHR$ (1) JVZ 
1640 FOR Y=13 TO 9 STEP-1 >RG 
1650 PEN 2:LOCATE 11+11,Y:PRINT CHR >XY 

9(252) ;CHR$(8) ;:PEN 1:PRINT L$(Y-8, 

11) 

1660 IF Y=11 THEN SOUND 1,500,3,15 DAC 
1670 NEXT:NEXT:PRINT CHR$(22) ;CHR$( DGU 

0) 

1680 LOCATE 11+11,14:PRINT" ":NEXT DC 
1690 GOSUB 2060:1F ASC(R$)(>13 THEN >PQ 
1690 ELSE RESTORE 2000:GDSUB 1970 

1700 GOSUB 2060:1F ASC(R$)(49 OR AS >DP 


C(R$)253 THEN 1700 ELSE NJ=VAL(R$) : 
GOSUB 1970 

1710 FOR Y=20 TO 19+NJ >PG 
1720 J$(Y-19)="":ID=2 >PP 


1730 LOCATE 2,Y:PRINT STRINGS(12," EH 
*) 

1740 FOR I=1 TO 12 )LA 
1750 LOCATE XD, Y:PEN 3:PRINT CHRS(2 DFI 
24) 

1760 GOSUB 2060:R$=UPPERS(R$):1F AS DHM 
C(RS)=127 THEN 1790 ELSE IF ASC(R$) 
(13 THEN 1780 

1770 1F J8(Y-19)=*" THEN 1740 ELSE 3JZ 
LOCATE XD,Y:PRINT" ":GOTO 1820 

1780 LOCATE XD,Y:PEN 2:PRINT R#:J$( DXM 
1-19)=J$CY-19)+(R$):XD=XD+1:G0T0 18 

10 

1790 IF XD-2 AND Y=20 THEN 1760  DWZ 
1800 IF XD=2 AND Y>20 THEN LOCATE 2 DUH 
 Y:PRINT® *:Y=Y-2:G0T0 1820 ELSE 17 

20 

1810 NEXT )LB 
1820 NEXT:GOSUB 1970 PT 
1830 GOSUB 2060:1F ASC(R$)(49 OR AS DUA 
C(RS)353 THEN 1830 ELSE ND-VAL(R$): 
LOCATE 21,7:PEN 1:PRINT ND:GOSUB 19 

70 

1840 GOSUB 2060:R$=UPPERS(RS):1F R$ DRG 
ON" AND (ASC(RS)<49 OR ASC(RS))53 


À 








) THEN 1840 ELSE CR=VAL(RS) :RETURN 


1850 )YG 
1860 ? CHRONO ul 
1870 NY] 
1880 PRINT CHR$(22) ;CHR$(0):PEN 1  >AP 


1890 SEC=SEC-1:1F MN=CR AND SEC>=0 UM 
THEN PRINT CHR$(22) ;CHRS(1) :RETURN 

1900 IF SECCO THEN SEC=59:MN=MN-1:L >LE 
OCATE 34,7:PRINT USING"#";MN 

1910 IF SEC<10 THEN LOCATE 36,7:PRI CB 
NT"0":LOCATE 37,7:PRINT USING"#";SE 

C ELSE LOCATE 36,7:PRINT USING"#4"; 

SEC 

1920 SOUND 1,30,2,15:1F SEC=0 AND M DNV 
N=0 THEN TE=0 

1930 PRINT CHR#(22);CHR$(1):RETURN >DD 


1940 ? )YG 
1950 * MESSAGES PRESENTATION >YH 
1960 NY] 


1970 PEN 2:FOR Y-9 TO 13:LOCATE 12, >ZB 
Y:PRINT EF$:NEXT:PRINT CHR$ (22) ;CHR 
$(1) 

1980 PEN 1:FOR Y=9 TO 13:READ T1$:L >AH 
OCATE 12,Y:PRINT TI$:NEXT:PRINT CHR 
$(22) ;CHR$# (0) :RETURN 

1990 ? 
2000 DATA" 
VOUS", 


>2B 
A COMBIEN"," DESIREZ- >KL 
JOUER ?°," ®," (MAXIMUN 
5 !)",* ENTREZ VOS"," PRENONS PU 
IS," ENTE R","*CORR:PRESSEZ DE 
L',"CHAX.12 CARACT!)","  CHOISISSE 
Z"," VOTRE NIVEAU DE"," DIFFICULT 
E"," (DE 1 À 5)", "HOTS DE 3 A 7 L 
Li 


2010 DATA® DUREE CHRONO"," EN MI >JG 
NUTES*," (ENTREZ 1 A 5)"," TAPEZ N 
POUR"," TEMPS ILLIMITE" 


2020 DATA" BRAVO",""," "," " >VH 
, "ON REJOUE ?(0/N)° 

2030 ? )H 
2040 *  ATTENDRE TOUCHE 1] 
2050 ? )K 
2060 CALL &BB0O3 )TJ 


2070 R$=UPPERS(INKEYS): IF R$="" THE DWR 
N 2070 ELSE RETURN 


2080 " TC 
2090 * EFFACER MESSAGE ERREUR > 
2100 YF 
2110 PRINT CHR$(22) ;CHR$(0):LOCATE UN 
12,16:PRINT STRINGS(16,* ") :RETURN 

2120 )H 
2130 * BRUITAGE REFUS MOT De 
2140 ? )XK 


2150 FOR ZAP=200 TO 20 STEP-5:SOUND DEP 
1,ZAP,1,15:NEIT:RETURN A 


INFORMATIQUE 


COMMUNICATION 


DIALOGUE 











Éer 


Savoir comment nous joindre, les sommaires, les 
infos. 


ÉnsResen 


Une nouvelle façon de poser les questions et de 
voir les réponses faites | 


RÉEL 


C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 


Cnam _] 


Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM 
- ARCADES - AMSTAR - PCOMPATIBLES - MEGA 
HERTZ - CPC REDACT - ASTROLOGIE PRATIQUE 


EE 


En direct, vos questions, vos idées et suggestions 


RÉMRRETE 


Certains revendeurs français disposent d'un accès 
gratuit pour leurs promotions 


En) 


La rubrique sur nos productions avec la possi- 
bilité de commander 


BREST) 


Désormais vous trouverez sur le serveur les 
nouveautés diffusées par cette société 


EE 7 


L'horoscope 1988 mais aussi depuis peu le men- 
suel du 15 au 15 du mois 


Au téléphone, 15 minutes coûtent en moyenne 55 francs 
Par minitel, il vous en coûte pour ls même temps 15 francs 





